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PREFACE 



SPL/3000, Hewlett-Packard's systems programming language for the HP 3000 Computer System, 
is a high-level, machine-dependent programming language. SPL/3000 is designed for writing 
compilers, operating systems, and other systems software. 

The Systems Programming Language Textbook is an introduction to the structure and uses of 
SPL. The textbook is written for the reader who has at least one year of programming experi- 
ence with high-level and assembly -level programming languages. 

Other publications which the reader should have available include: 

Systems Programming Language Reference Manual (HP 30000-90024) 

The authoritative reference source on questions of syntax and semantics about SPL. 

General Information Manual (HP 30000-90008) 

An integrated presentation of the features and capabilities of the software developed 
for the HP 3000 Series II Computer System. 

MPE Commands Reference Manual (HP 30000-90009) 

The authoritative reference source for commands to the MPE Operating System. 
MPE Intrinsics Reference Manual (HP 30000-90010) 

The authoritative reference for internal procedures of the MPE Operating System. 
MPE Segmenter Reference Manual (HP 30000-90011) 

The authoritative reference source for using the Segmenter. 
Machine Instruction Set Reference Manual (HP 30000-90022) 

The authoritative reference source for the machine instructions. 

System Reference Manual (HP 30000-90020) 

The authoritative reference on the organization of the HP 3000 Series II Computer 
System hardware. 



This manual applies in its entirety to the HP 3000 Series II Computer System. Information in 
the manual may also be used with pre-Series II systems if the following changes are noted. 

• Pre-Series II systems use three word representations of LONG data. 



Delete the following machine instruction mnemonics: 



DISP 


PSDB 


IXIT 


PSEB 


LDEA 


RCLK 


LOCK 


QASL 


LSEA 


QASR 


LST 


SCLK 


MABS 


SDEA 


MDS 


SSEA 


MFDS 


SST 


MTDS 


UNLK 


PCN 





Add the following machine instruction mnemonics: 



Mnemonic 

SIRF 
TSBM 



Function 

Set external interrupt reference flag 
Test and set bit in memory. 



Format 
6 

3b 



For your convenience, these differences are noted in the manual. 
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IHTRODUCTION 



SPL/3000 has many features normally found only in applications languages such as ALGOL or PL/1: 
free-form structure, arithmetic and logical expressions, high-level statements with unlimited nesting 
(e.g., IF, FOR, SWITCH, CASE, DO-UNTIL, WHILE-DO, MOVE, SCAN, Assignment, and Compound 
statements), recursive procedures and subroutines, and variables and arrays of many different data 
types (byte, integer, logical, real, double integer, and long real). 

Yet, SPL/3000, unlike any apphcation language, allows the programmer to operate directly on hard- 
ware registers, perform branches based on hardware status, extract/deposit/shift bit fields, and 
generate any sequence of hardware machine instructions (all in the midst of high-level constructs). 

This textbook introduces the reader to most SPL/3000 features. It is organized according to pro- 
gramming functions - from simple constructs to difficult - therefore, it should be read from 
beginning to end. Throughout the textbook complete example programs are listed and explained; 
these programs illustrate the topics discussed in the sections and should be studied carefully. Small 
examples of one or two lines are also provided; in many cases, the analysis is left to the reader. In 
addition, each section ends with a set of exercises to test comprehension. (Answers are provided in 
Appendix D.) 



The topics covered in this textbook are: 

Section I: Environment of a HP 3000 Process 

Section II: Basic Elements of SPL/3000 

Section III: Transfer of Control 

Section IV: Looping Constructs 

Section V: Bytes, Pointers, Move and Scan 

Section VI: Procedures and Subroutines 

Section VII: Data Access Concepts 



Section VIII: Assemble Statement 



XV 



Appendices contain the following information : 

A. ASCII Character Set 

B. Reserved Words 

C. Brief Summary of Commands 

D. Answers to Exercises 

When you have mastered this textbook you should use the System Programming Language manual 
as your main source of information, since it contains a complete description of SPL/3000 and 
describes many special cases not covered in the textbook. 
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SECTION I 
Environment of an HP 5000 Process 



An SPL/3000 process is the unique execution of a program. If the same program is run by several 
users, it becomes several processes. If the same user runs the same program several times, each 
execution is a distinct process. All of the users on a system, therefore, can be executing the same 
program, but each execution has its own process. All the processes use the same copy of the program 
code, but each has its own data area. For example, if all users were running the BASIC/3000 
Interpreter, their processes would overlap as follows: 
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An SPL/3000 process consists of a code domain (some machine instructions that it can execute) and 
a data area called a "stack," and is run under control of the operating system. The code and data in 
HP 3000 are always separated logically. The code domain consists of segments which may be shared 
among several processes (for example, the code segments of the SPL/3000 compiler can be shared). 
The data stack is unique to the process and cannot be accessed by any other user's process. 

The operating system (MPE/3000) schedules and dispatches a process for execution in competition 
with all other processes according to its priority. 



THE CODE DOMAIN OF A PROCESS 

All machine instructions within HP 3000 are organized into variable-length segments which are 
accessed through a hardware-known table. Since the hardware detects references to segments which 
are not in main memory, the code domain of a process is not hmited to the size of main memory. 
At any one time there can be up to 256 different code segments defined in the system. Segments 
are brought from disc into main memory as needed. At any particular moment a process can be 
executing one and only one code segment. The process "escapes" from its current code segment 
by using a Procedure Call (PCAL) instruction. A PCAL can reference procedures in different 
code segments from the current one and cause control to transfer to a different code segment. 

The current code segment of a process is defined by three hardware address registers: 

PB— Program base register Contains the absolute address of the starting location 

of the segment in main memory. 

PL-Program limit register Contains the absolute address of the last location of the 

code segment. 

P— Program counter Contains the absolute address of the instruction currently 

being executed. 

The relationship of the three current code segment registers is shown in Figure 1-1. The central 
processor checks all instructions to insure that they stay within the bounds of the current code 
segment. All addresses within a current code segment are relative to these registers. The oper- 
ating system can relocate the segment anywhere in main memory; only the three registers have 
to be changed to define the segment's locations. 
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Low memory 



Program base register (PB) 



Instructions 
and constants 



PB is the addressing base register; its 
absolute address is set by the operating 
system. 



Program counter (P) 



Program limit register (PL) 



P changes as each instruction is executed 



PL is the addressing limit register; its 
address is set by the operating system. 



High memory 



Figure 1-1. Current Code Segment Registers 



THE DATA AREA OF A PROCESS 

Each process has a completely private storage area for its data. This storage area is called a stack 
or a data segment. When the process is executing, its stack must be m mam memory. A stack 
is delimited by two stack addressing registers: 

DL-Data limit register Contains the absolute address of the first word of main 

memory available in the stack. 

Z-Stack hmit register Contains the absolute address of the last word of main 

memory available in the stack. 

Between DL and Z, there are separate and distinct areas set off by three other stack addressing 
registers: 

DB-Data base register Contains the absolute address of the first location of the 

direct address global area of the stack. 

Q-Stack marker register Contains the absolute address of the current stack marker 

being used within the stack. 

S-Top of stack register Contains the absolute address of the top element of the 

stack. Manipulated by hardware to produce a last-m, 
first-out stack. (The top four items are kept in hardware 
registers.) 
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The relationship of the five stack addressing registers is shown in Figure 1-2. Each process is 
also described by a status register (containing its segment number and status) and a program- 
accessed, one-word index register used for array indexing and other computing functions. 

There is only one set of these hardware registers; their content is estabUshed for a process when 
it starts executing. 



Data limit register (DL) 



Data base register (DB) 



Low memory 



User managed 
array space 



X 



Stack maker register (Q) 



Top of stack register (S) 



Stack limit register (Z) 



Global variables 
(first 256 locations 
is primary DB area) 

Global arrays 
(secondary DB area) 



Procedure 
Parameters 

Stack Marker 



DL can be changed for user by operating system. 
DB is addressing base register set by operating system. 



X 



Local storage and 
current computation 



not accessible 



High memory 



Q changes with each procedure call and exit. 



S can change with each instruction. 

Z is addressing limit register which can be changed 
for user by operating system when he overflows. 



Instructions are provided to access all regions indicated in this diagram (except S to Z). The four top of stack 
registers are not shown. 



Figure 1-2. Data Stack Registers 
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HOW HARDWARE REGISTERS ARE USED 

The hardware registers we have described (DL, Z, DB, Q, and S) are imposed on the main 
memory by the hardware to define the bounds of a process. 

In the succeeding paragraphs, we show how these registers are referenced by the HP 3000 
instruction set. 



Memory Reference Instructions 

In many conventional computers a memory reference instruction consists of an opcode (LOAD, 
STOR, ADD, etc.) and an address. The address is usually an absolute location or a location 
relative to a fixed hardware boundary. In HP 3000, memory reference instructions specify 
an address relative to one of the hardware registers and have direct addressing ranges of 

P register 

±255 locations 

DB register 

+255 locations 

Q register 

+127 locations 
-63 locations 

S register 

-63 locations 

Any memory reference instruction specifies a displacement within the range of one of these 
registers. This location is used as the operand; if another address is required, it is implicitly 
assumed to be the top of stack (S - 0). 

To address beyond this range, the programmer specifies indirect addressing in the instruction 
and a location containing a DB or self -relative address. This allows him to access any area in 
the stack except that area between S and Z which is undefined (the DL to DB area is accessed 
by going indirect through a negative DB relative address). 

The basic addressing mode in HP 3000 is word addressing (each word equals 16 bits). Also 
provided are instructions to load and store bytes (half words equal to 8 bits) and double words 
(32 bits). 

The Stack 

Many HP 3000 instructions use the top of the stack (the absolute address in the S register) 
as an implicit operand. The S register is constantly changing in a last-in, first-out manner such 
that data is "pushed" onto the stack or "popped" off the stack. "Push" and "pop" can be 
explained as follows: 
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PUSH 



LOAD DB + is a typical push operation. It causes the address in the S register to increment 
and then loads the contents of location DB + into that address. The S relative addresses of 
all other items in the top of the stack are effectively decremented by one. 



DB + 


25 




25 




1 1 


-r 


— ► 


' / 


S-1 








S-2 


S-0 


2 


2 


S-1 








25 


S-0 


(before) 
LOAD DB + 


(after) 






POP 

STORE DB + is a typical pop operation. It stores the contents of S - in location DB + 
and then decrements the address in S. This effectively increments the S relative addresses of all 
items by one. 



S-2 
S-1 
S-0 





1 — ► 


25 


/ > 


' 


> 


' ; 








2 


2 


25 







(before) (after) 

STOR DB + 



DB + 



S-1 
S-0 



Note that after the "Pop," S-0 contains the value 2, not 25. 

Sixty-four of the HP 3000 instructions are called stack-ops, because they implicitly refer 
to the top items in the stack. A typical stack-op instruction is ADD, which adds the top two 
words in the stack (S - 0, S - 1), pops the operands, and pushes the result. 



S-1 
S-0 



(before) 

ADD 









15 


22 


7 







S-0 



(after) 
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Because no bits are used for an operand address, stack-ops are very compact; in fact they can 
be packed two per 16-bit word and allow HP 3000 to provide hardware operations for a broad 
range of hardware data types: 

byte — 8 bits 

integer — 16 bit signed 
double integer — 32 bit signed 

logical — 16 bit positive 
floating-point — 32 bit (6.9 digits accuracy) 

The firmware or software provides long floating-point arithmetic (64 bit) in Series II systems 
and long floating-point arithmetic (48 bit) in pre-Series II systems. 



Indexing 



The index register is a 16-bit data register which is accessible to the program. One use of the 
index register is for element indexing. When indexing is specified in memory reference m- 
structions, the number in the index register specifies the element desired relative to the zero 
element (direct or indirect). The HP 3000 hardware provides true element mdexmg. It a 
double word is being accessed, the hardware doubles the index before adding it to the effective 
address and for byte indexing, the byte subscript value is added to the effective byte address. 

Procedure Calls and Exits 

The Q register plays an important part in the Procedure Call (PCAL) and Procedure Exit (EXIT) 
instructions. Whenever a procedure is called, a four-word stack marker is l^^^ed onto the top 
of the stack These four words preserve the state of the machine at the time of the call. The (^ 
and S registers are changed to the top of this stack marker so that the procedure has a unique 
area for local storage allocation and addressing. 

When the procedure exits, the stack marker (found by looking at Q - to Q - 3) is used to 
restore the machine to its previous state (reset P, Q, X, and Status). All of this environment 
set-up and resetting is done by the two hardware instructions PCAL and EXii . 



EVALUATING AN EXPRESSION 

Here is a typical HP 3000 expression: 
A-(B*(C + D)) 

NOTE: * means multiply. 

Assume that A, B, C, and D are integer variables in DB relative locations and that the result is 
to be stored in a variable R at DB + 0. One way to evaluate this expression usmg the stack is 
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. LOADDB + 1 
LOAD DB + 2 
LOAD DB + 3 
LOAD DB + 4 

ADD 

(C + D) 

MPY 

(B * (C + D)) 

SUB 

(A-(B*(C + D))) 

STOR DB + 

{R:=(A-(B*(C + D))); 


(S 
DB + 

+ 1 
+ 2 
+ 3 
+ 4 

S-0 

(St 
S-3 
S-2 
S-1 
S-0 

(St. 

S-2 
S-1 
S-0 

(St£ 

S-1 
S-0 

(Sta 
S-0 

(F 
DB + 
+ 1 
+ 2 
+ 3 
+ 4 

r 
/ _ 

S-0 


tack before 1) 

RESULT 
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A 
B 
C 
D 






30 
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ack before 2) 






457 


Value of A 
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10 
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ack before 
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32 


f D) 


4. 


ick before 
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Value of A 
Value of (B ^ 






960 


- (C + D)) 


5. 


ck before 


5) 
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Value of (A - 


- (B * (C + D))) 




inal stack 


) 






-503 


RESULT (A - 

A 

B 

C 

D 


-(B*(C + D))) 




457 






30 






10 






22 





















SUMMARY OF PROCESS ENVIRONMENT 

Because of the many functions provided by the hardware and software, a HP 3000 process 
has many important services available to it. 

Virtual Memory for Code 

Since a process can reference procedures in up to 255 code segments without knowing 
whether they are present in main memory (the hardware checks for absence of code segments 
when they are referenced by the PCAL-EXIT instructions), programs are not unduly limited by 
the physical size of main memory. This ability constitutes a virtual memory for code based on 
variable length segmentation. 

Dynamic Allocation of Local Storage 

Local storage required by procedures is addressed relative to the Q register. Since the Q register 
is updated whenever a procedure is entered, local storage need not be allocated until then. Also, 
since Q is reset to its previous value when the procedure exits, this temporary storage is deleted. 
As a result, the amount of data storage required is kept to a dynamic minimum by the hardware. 

Relocatability 

Since all user instructions address relative to hardware registers, code and data segments can be 
relocated anywhere in memory simply by moving the information and setting the registers to 
new values. This provides great flexibility for the operating system. 

Protection 

Since the hardware checks that instructions stay within the bounds of the user's code and data 
segments, automatic protection is provided between user processes and the system. HP 3000 
has other protection mechanisms (such as privileged versus user mode) which ensure that it 
maintains ultimate control. 



Re-entrant Code 

Since code is never modified during execution in HP 3000, it is all naturally re-entrant. This 
means that when a process is interrupted while executing, the system can allow another process 
to execute the same code. This is the primary advantage of re-entrant code; it eliminates the 
need for multiple copies of programs and reduces swapping between disc and main memory. 
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EXERCISES FOR SECTION I 



1. How is a process different from a program? 

2. What are the two main components of a process? 

3. Explain the major difference between treatment of code and data in the HP 3000. 

4. Label these diagrams with the appropriate register names. Describe briefly the function of 
each register. 



Low 
address 



code segment 



data segment 



High 
address 



FUNCTION: 



REGISTER 



USED TO ADDRESS 



5. Match the addressing range limits shown below with the registers listed. (More than one 
limit value may be associated with a single register. Limit values may be used more than 
once.) 



REGISTERS 

P 

DL 

DB 

Q 

S 

z 



ADDRESS LIMITS 

+255 

-255 

+127 

-127 

+63 

-63 

+31 

-31 

not used for addressing 
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6. Complete the stack diagrams provided to show the contents of the stack after each 
specified instruction has been executed 

Assume A = 3, B = 1,C = 3, D = l 



LOAD A LOAD B 



SUB 



LOAD C LOAD D 



ADD 



MPY 



s s s s s s 



7. Write the expression which was evaluated in problem number 6. 

Use * for multiply 
- for subtract 
+ for add and 
( ) to show which operation is done first. 

8. For each of these capabilities, which feature of HP 3000 hardware makes the capability 
possible: 

a) Automatic relocatability? 

b) Protection for each user's code and data space? 

c) All code re-entrant? 
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SECTION II 
Basic Elements of SPLI3000 



This section introduces the building blocks from which SPL/3000 programs are made; constants, 
identifiers, delimiters, declarations, operators, expressions, and assignments. Once these concepts 
are understood it is possible to see how programs are structured in SPL/3000. 



CONSTANTS 

A constant is a fixed value of some specific type. The following are valid constants: 

Constant Type 

1056.21 Decimal real number 

1056 Decimal integer number 

-539 Decimal integer number 

%342 Octal (base 8) integer number 

"ABDN" String constant 

"Now is the TIME." String constant 

.1023E6 Decimal real number = .1023 x 10^ 

.105621E4 Decimal real number (same value as first example, 

since E4 means "x 10"^ ") 

This Ust illustrates the three basic types of constants: integers (positive and negative, octal or 
decimal), real numbers (fractions with optional base ten exponent), and strings (sequences of 
characters). If the quote character (") is to appear within a string, it must be represented by a 
pair of quotes (" ") since the quote character is used to delimit strings. 

Integer constants are 16-bit signed integers that can range from -32768 to +32767. Real con- 
stants require 32 bits and can range from -lO'^^o +10'^^(8.63616)x lO'^^ <= |N| <= 1.1579 x 10^'') 
with 6.9 digits of accuracy. There are several other SPL/3000 data types: bytes— 8 bits, long 
real— 64 bits,* logical— 16 bit unsigned, and double integer-32 bits signed. 

Two other constant forms: 

%(2)010110 (binary) 
%(16)0AE9 (hexadecimal) 

*48 bits in pre-Series II systems. 
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IDENTIFIERS 

Identifiers are the names used in an SPL/3000 program to represent various syntactic entities. 
Identifiers consist of up to 15 characters (uppercase alphabetic or numeric) and must begin with 
an uppercase alphabetic character: 

Valid Identifiers 
INVOICES 

NUMBER'OF'WOMEN (Note: ' is the only special character allowed within an identifier.) 

ENTRY73 

A29765 

Invalid Identifiers 

9ABC 

Z1234567890123456789 {truncated to Z12345678901234} 

AB%9B 

'ABC 

If lowercase letters are used, they are upshifted by the compiler to uppercase form by the com- 
piler. Identifiers longer than 15 characters are truncated on the right. Certain combinations 
of characters are reserved words; they cannot be used as identifiers because they have predefined 
meaning within SPL/3000. A Ust of reserved words appears in Appendix B. 



DELIMITERS 

A blank character is generally recognized as a delimiter in SPL/3000, except for the occurrence 
of a blank in a character string. Thus, an identifier is delimited by one or more blanks on each 
end: . . . AN'IDENTIFIER .... In special contexts, characters other than blank can also serve 
as delimiters. For example, semicolons are used to delimit statements and colons can delimit a 
label. 



COMMENTS 

Comments can be embedded in a program in two ways: 1) through the COMMENT statement, 
or 2) through the use of « ». The COMMENT statement consists of the reserved word 
COMMENT followed by any number of characters delimited by a semi-colon (;). 

COMMENT THIS is a COMMENT; 
COMMENT 

THIS COMMENT 

GOES ON FOR 

SEVERAL LINES; 
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The « » characters can be used anywhere in a program (except within an identifier), and 
the characters between « and » will be ignored by the compiler. 



«THIS IS A COMMENT» 

«lowercase letters are NOT UPSHIFTED in comments» 



DECLARATIONS 

A declaration defines the attributes of an identifier before it is used in the program. All 
identifiers in SPL/3000 (except labels) must be declared and can be declared only once in 
a main program. A declaration generally consists of a reserved word specifying the attributes, 
followed by a list of identifiers (optionally set to initial values) that are separated by commas 
and delimited by a semi-colon. In this section we will only discuss two of the simplest declara- 
tions: simple integer variables and real variables, 

INTEGER A, B, C39, DUMMY; 
REAL SINTL, 

NUMEXTENTS; 

The first example above declares four variables of type integer; the second example declares 
two variables of type real. The type indicates what type of arithmetic to perform on the variable 
(integer for INTEGER and floating-point for REAL) and how much storage to allocate (one 
word for each INTEGER variable and two for each REAL). 



Initialization 

Variables can be given initial values (when they are declared) through this simple construct: 

Valid 

INTEGER A := 2098, B := 4048, C := 8096; 
REAL XIO := 101.93, FGH, LINK; 

Invalid 

INTEGER A := B := C := 2; 

REAL 2.93, 3.25; 

Any identifier in the list can be followed by := and a constant; this results in the variable having 
the value when the program is first executed. (Note that FGH and LINK are declared but not 
initialized.) 

Global Address Mode 

When variables are declared in the main program they are called global variables. Global 
variables are assigned consecutive locations (relative to the DB register) as they are declared. 
The number of words assigned is determined by the data type. Global variables can be refer- 
enced throughout the program. Variables with a more limited scope can also be declared (with- 
in a procedure); these variables are known as local variables and are discussed in Section VI. 



2-3 



EXAMPLE OF GLOBAL ADDRESS ASSIGNMENT 



BEGIN «start of program» 



INTEGER I, 

J, 

K:=ll; 
REAL XIX; 
INTEGER BUS; 



«location DB + not initialized» 
«location DB + 1 not initialized» 
«location DB + 2 set to 11» 
«location DB + 3 (2 words)» 



END. «end of program» 



ARITHMETIC EXPRESSIONS 

Arithmetic expressions combine identifiers, constants, parentheses, and operators (", *, /, MOD, 
+, -) to represent a sequence of mathematical operations. All operators, except the unary + and 
-, require an operand on each side— either a single value, such as a constant, or a variable or 
another expression enclosed in parentheses. 

Valid Expressions 

+C 

A + B-CDG*2.53 

A - BC / FR 

-(A + B) * C 

-B * (-A) 

Invalid Expressions 

*A + C / ^ D 
A{ C + D) 
A*-D 
A* + D 

An expression defines a single value which is its result; what is done with that value depends on 
where the expression occurs. In the most common case, an expression is assigned to a variable: 

A:=(A + B) *(C + D); 

Arithmetic Operators 

Arithmetic operators are symbols which are used in SPL/3000 to indicate the performance of 
some arithmetic operation. The operators are ranked in an order of precedence to determine 
the relative order in which operations are executed (when there are no overriding parentheses). 
When operations are of the same rank, execution proceeds from left to right. The rank, from 
highest to lowest precedence, is as follows: 
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Rank 1 : Bit functions (extract, concatenate, shift) 

Perform bit functions on one-, two-, or three-word quantities. 

Rank 2: Unary plus and minus (+, -). 

Rank 3: " Exponentiation 

Raises a value to a specified power. 

Rank 4: * Multiplication 

Multiplies two values to produce a result. 

/ Division 

Divides one value by another to produce a result. 

MOD Modulo 

Divides one value by another and retains the remainder as the result (allowed 

only for one-word quantities— not real). 

Rank 5: + Addition 

Adds two values to produce a result. 

- Subtraction 

Subtracts one value from another to produce a result. 

Bit extracts and concatenates are defined for one-word quantities only. Bit shifts are defined 
for one, two, or three words. 

All other operations (except MOD) are defined for all data types with these exceptions: double 
integers can only be added and subtracted and exponentiate is not available with logical values. 

The order in which operations are performed is determined by the hierarchy: 



A-B + C 

J . I I 



result 



A + B*C 
1 I ^_j 



result 



(A + B) * C 
1 I I 



result 



A-B+C*D"E 
I 



Operations of the same rank are performed from left 
to right. 



Operations of different rank are performed according 
to their position in the hierarchy of operators (highest 
rank first). 

Operations enclosed in parentheses take precedence 
over operators outside of parentheses, even those of 
higher rank. 

Left to right order is maintained until an operator 
occurs that is of lower rank than the next operator 
or the next item is in parentheses. 



result 



A ^ (B - C) * D / E MOD F " G 

L_±H ^ 



result 
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Absolute Value 

When an expression is enclosed by backslashes (\expression\), the result is the absolute value 
of the expression : 

\A + B / C\ - D - 2 

Type Transfer Functions 

SPL/3000 does not allow type mixing in expressions. A particular operator can be executed 
only if both of its operands are of the same type. When a conflict occurs, it is necessary to 
convert the type of one of the values by means of type transfer functions. 

NOTE: Exponentiate allows real raised to an integer power and long real raised 
to an integer power. 

A function is a subroutine or procedure that returns a value. Type transfer functions take a 
value of one type and return an equivalent value of another type; many of these functions are 
provided by hardv^are. The result of a type transfer is temporary (effective only for the 
immediate use of the value); the original contents of variables are not changed by type transfer. 
Not all possible transformations are provided; in some cases, two functions must be used. 

• Convert an integer (double, byte, logical or long) expression to type real: 

REAL 0') (where; is any expression resulting in type integer, double, or long) 

• Convert a real expression to type double (see section VI) and truncate: 

FIXT (r) (where r is any expression resulting in type real) 

• Convert a real expression to type double and round: 

FIXR (r) 

• Convert a double (or byte or logical) expression to type integer: 

INTEGER (d) (where d is any expression resulting in type double, byte, or 
logical) 

• Convert a real expression to type integer: 

INTEGER (FIXT(r)) «:fix and truncate» 
INTEGER (FIXR(r)) «fix and round» 

All operands of an expression need not be converted to one type— only the pair surrounding 
each operator: 

Assume that A, B, C, D are integers and M, N, O, P are real. 

REAL(A + B) * M + P 

INTEGER (FIXR(N / O)) + INTEGER (FIXR(M / P)) + C 

M * REAL(A + B + INTEGER (FIXR(P))) 
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Primaries 

Primaries are those items which can be operated upon by the arithmetic operators: 

Constants 

Simple variables 

Array elements (Section IV) 

An expression in parentheses (arithmetic expression) 

The absolute value of an expression \arithmetic expression\ 

An assignment statement in parentheses (see "Assignment Statements" in this section)— 

the value assigned to the variable is also used in the expression to follow. 

Function designators: 

Type Transfer Functions 

Bit Functions (this section), and 

Function Subroutines and Procedures (see section VI) 

Bit Functions 

Functions that perform bit-level operations can be used in arithmetic expressions. Bit functions 
are performed before other operators. In SPL/3000 expressions the three types of bit functions 
are 

• Bit extraction (one word quantities only) 

• Bit concatenation (one word quantities only) 

• Bit shifts (one, two, and three word quantities) 

BIT EXTRACTION 

Bits are extracted to isolate a contiguous bit field from the 16 bits of a one-word value. The 
result is a right-justified value of type integer with the most significant bits set to zero. Primaries 
are not altered. The maximum field that can be extracted in a single operation is 15 bits. The 
format consists of a primary followed by a period and an extract field in parentheses: 

primary . (left bit : field length) 
In this example, two bits are extracted from %125 starting at bit 8: 

primary = %125 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 
00000000 ^0 1^ 10 10 1 



result = %1 000000000000001 

%125.(8:2) 

■ t H 

primary 

left bit 
field length 
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NOTE: Remember that bits are numbered from the left (most significant bits) 
starting with zero (0): 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



BIT CONCATENATION 

Concatenation permits the formation of a new value by extracting a bit field from one word 
and depositing it at a specified position in another word. 

The format is 

primary CAT primary (left deposit bit : left extract bit : field length) 

left deposit bit Indicates which bit position in the first primary (to the left of CAT) to 
deposit the field extracted from the second primary. 

left extract bit Indicates at which bit in the second primary to begin extracting the bit 
field. 

field length Indicates how many contiguous bits to extract from the secondary 
primary. 

Concatenation is performed on temporary quantities; the original primaries (if variables) are 
not altered. Note that the primaries themselves can be bit functions. 

In this example, four bits are extracted from YBCD starting at bit 4 and are deposited in XBCD 
starting at bit 8. The other 12 bits of XBCD are carried over unchanged and the original values 
of XBCD and YBCD are unaltered. 



XBCD CAT YBCD (8:4:4) 
XBCD YBCD 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



10110001111 1 1 1 1 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

• ■ I 

result 
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BIT SHIFTS 

A bit shift performs a hardware shift (logical, arithmetic, or circular) upon a quantity in the 
stack. The format is 

primary & shift op (count) 

primary is a primary of any type. 

count is an arithmetic expression specifying how many bits are to be shifted. 
shift op is one of the following hardware opcodes: 

Single Word LSL (logical shift left, 16-bit quantity) 
LSR (logical shift right, 16-bit quantity) 
ASL (arithmetic shift left, sign preserved) 
ASR (arithmetic shift right, sign preserved) 
CSL (circular shift left) 
CSR (circular shift right) 

Double Word DASL (double arithmetic shift left, 32-bit quantity) 
DASR (double arithmetic shift right) 
DLSL (double logical shift left) 
DLSR (double logical shift right) 
DCSL (double circular shift left) 
DCSR (double circular shift right) 

Triple Word TASL (triple arithmetic shift left) 
TASR (triple arithmetic shift right) 
TNSL (triple normalizing shift left) 

Four Word QASL (quadruple arithmetic shift left) 
QASR (quadruple arithmetic shift right) 



NOTE: SPL/3000 does not check for type compatibility in bit shifts. If a double 
word shift is performed on a single word primary (or other unmatched 
combinations), other words in the stack will be shifted also. 



The difference between logical, arithmetic, and circular shifts c£in be explained as follows: 

iju^icai biiiius i-iii Willi z.eiu uius a& i^ncy sni±L leii/ ui iignb. 

• Arithmetic shifts preserve the sign bit on a left shift (and fill with zeros) and 
propogate the sign bit on a right shift (fill with the sign bit). 

• Circular shifts have no fill bit; bits that are shifted off one end are shifted on at 
the other end. 
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This example shows the difference in practice: 

AKS23 & LSR(3) _^ 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



— , , — — ^ 

10110001111 1 1 1 1 00010110001 1 1 1 1 1 

AKS23 result 



AKS23 & ASR(3) _^ 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



1 t — r 

10110001111 1 1 1 1 11110110001 1 1 1 1 1 



AKS23 & CSR(3) _^ 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



, , , 

10110001111 1 1 1 1 01110110001 1 1 1 1 1 

In all cases, the original contents of AKS23 remain unchanged. 



ASSIGNMENT STATEMENT^ 

An SPL/3000 statement is an order to perform some action. The purpose of an assignment 
statement is to assign a value (determined by an expression) to a variable. These are typical 
assignment statements: 

A := A + 1; 

B := (A + C) / (N + 365 * NUM ^ 2); 

The general form is 

variable := expression; 

where variable and the result of the expression must match in type to the extent that they 
use the same size quantity (1, 2 or 3 words) (type byte is compatible with one-word quantities) 
and 

:= means "is replaced by" 

; terminates the statement 

Assignment statements have two special forms: multiple assignments and deposit fields. 
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Multiple Assignments 

variable := variable := := expression ; 

For example the form 

A:=B:=C :=N*2; 

assigns the result of the expression to three variables. 

Deposit Fields 

A deposit field specifies a bit field of the variable into which the result of the expression is to 
be stored: 

variable . (left deposit bit : field length) := expression; 

For example, A.(8:2), and B2.(5:5). The number of bits required for the field is taken from 
the result of the expression (least significant bits) and deposited in the variable starting at the 
bit position specified. In this example, eight bits from the result of the expression are deposited 
in PAT starting at bit 0. (PAT contains %65137 before the deposit.) 

PAT. (0:8) := expression; 



f 



1 1 1 1 O'O 1011111 0100000101001110 

New value of PAT Result of expression 

All bits in the deposit variable (PAT) which are not part of the deposit subfield remain un- 
changed. When deposit fields are used with multiple assignments, only the leftmost variable 
can have a deposit. 

EXAMPLES OF ASSIGNMENT STATEMENTS 

Bit Operations: INTEGER RSLT, DWORD, ANS, MPX, COMP; 

RSLT := DWORD.(0:8) + %60; 

ANS.(0:4) := MPX & LSR(3); 

COMP := MPX CAT DWORD(14:0:2); 

Arithmetic Operations: INTEGER CHAR, DATA, SLOPE; 

REAL YPOINT, YVALUE, XPOINT, XVALUE, DELTA, DATA; 

CHAR := DATA MOD 8 + %60; 

YPOINT := YVALUE + REAL (SLOPE) * (XPOINT - XVALUE); 

DATA := SLOPE * INTEGER (FIXR(DELTA)); 
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EXAMPLE 2-1. SUM AVERAGE 

This example solves a simple computational problem; it inputs two numbers, computes their 
sum and average and outputs the results. Example 2-1 illustrates the use of declarations, 
arithmetic expressions and assignment statements. 

Example 2-1 uses several constructs which have not been covered yet: 

Item Description Reference 

BYTE Indicates attribute "character" Section V 

ARRAY A linear vector of elements of same type Section IV 



Input/Output 

ENTER VALUES 
12,24 
SUM = 36 
AVG r 18 
ENTER VALUES 
-50,50 
SUM = 
AVG = 
ENTER VALUES 
-32768, +32767 
SUM = -I 
AVG = 
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Listing 



COMPUTE THEIR SUM AND AVERAGE. 



BEGIN «EXAMPL£ 2-i. 3UM-AVERAGE» 
COMMENT: 

INPUT TWO INTEGER VALUES 
OUTPUT THE RESULTS. 

NOTE- "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/5000; 
ARRAY ENTR(0:11):="ENT£R VALUES"; 
ARRAY LSUM(0:5):="SUM = "; 



BYTE 
BYTE 
BYTE 



ARRAY LAVG(0:5):="AVG = 



INTEGER AVALUE, 
BVALUE, 
SUM, 
AVG; 
«END OF DECLARATIONS>> 

OUTPUT(ENTR); <<WRITE 
INPUTCAVALUE, BVALUE); 
SUM:-AVALUE+BVALUE; «COMPUTE SUM» 
AVG:=SUM/2; <<COMPUT£ INTEGER AVERAGE» 
OUTPUTCLSUM, SUM); <<WR1TE LABEL AND SUM>> 
OUTPUT(LAVG,AVG); «WRITE LABEL AND AVERAG£» 
END <<SUM AVERAG£>>. 



H£ADING>> 
«READ TWO 



NUMBERS>> 



PROGRAM ORGANIZATION 

A program is an organized collection of SPL/3000 declarations and statements designed to 
solve a specific problem. The structure of a program is shown in the following diagram: 



( BEGIN 



Program < 



Data Declarations 



Procedure Group 



Statements 



global head 



main body 



END. 



The global head consists of data declarations (INTEGER, REAL, and all other data to be used 
in the program) and then the procedure group (declarations of subroutines, procedures, and 
system intrinsic routines). Procedures are a variety of subroutine with special properties that 
make them almost as independent as programs. They are declared in the global head and then 
are called by statements in the main body or by statements within procedures themselves. 
Intrinsics are operating system procedures which can be called by user programs. 

The main body consists of one or more statements such as assignment statements, for loop 
statements, etc. Statements are orders to perform some action; they are executed sequentially 
as written (unless one of the statements instructs otherwise). Statements are normally terminated 
by a semi-colon (;). 
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It is often useful to treat a group of statements as a single statement. In SPL/3000, any set of 
statements which is preceded by a BEGIN and followed by an END is called a compound 
statement and is treated as a unit. The BEGIN-END pairs act as parentheses-they define the 
collected statements as a unit (a single statement). A compound statement is similar in form to 
a complete program, but declarations are not allowed within compound statements. 

Compound statements can be nested to whatever depth is necessary (the statements of a com- 
pound statement can themselves be compound statements). 

Valid Compound Statements 
BEGIN 

A:=l; 
B :=2; 
END; 

BEGIN 

A:=l; 
BEGIN 

B :=2; 
C :=3; 

D:= A + B + C; 
END; 
Z :=Z + 1; 
END; 

Invalid Compound Statements 
BEGIN 

INTEGER A; «declaration not allowed in compound statements» 
A := A + J; 
END; 

The following example shows all the entries used in a program. 

BEGIN 

global f data dec. { INTEGER I, J := 9; 

head ] proc. group 



\ PROCEDURE P(A) ; VALUE A; INTEGER A; 
I I := 2 + A; 



mam 



body ] ^^^^^^^"^ { P(2 * J) ; «procedure call» 
END. 
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EXAMPLE 2-2. COMMAND INTERPRETER 

This next example shows a moderately complicated SPL/3000 program containing many data 
declarations, three subroutines (GETCOMMAND, SKIPBLANKS, and ERROR), a large 
procedure (CMNDSRCH), and a main body. The program is a command mterpreter that 
reads a command image, determines which command has been entered, and calls a procedure 
to handle the command. 

The command interpreter accepts command im^es from an input device, skips initial blanks 
interprets the next four characters as a command name, and searches a table to see if it is valid. 
If the command is valid, the command interpreter picks up a procedure call to the appropriate 
procedure and executes it. 

NOTE • The command interpreter uses elements of SPL/3000 which are discussed 
later in the textbook. You may want to refer back to this example after 
reading each succeeding section. 



Input/Output 

STJB,A001,ENGR,WX 
FEB 17-0810 JOB# 0026 

JBID,J0B-26 
JOB#002S SPOOLING IN 

L0CT,J0B-7 
JOB#0007 UNDEFINED 

H0LD,J0B-9 

SPAC,PRINTER-1 

REPEAT, PRINTER-1 

rpp p 

REPT,PRINTER-1 

RSTT,PRINTER-l 

RELS,J0B-9 

JBID,0 
JOB#0009 SPOOLING OUT 
JOB#0011 I/O WAIT 
JOB#0015 EXECUTING 
JOB#0026 SPOOLING IN 



Listing 



>> 



BEGIN «EXAMPL£ 2-2. COMMAND INTERPRETER: 
BYTE ARRAY IMAG£C0:8l); 
ARRAY WORDBUF(*)=IMAGE; 
INTEGER LENGTH, 
c*r\ w w L^ c* A 
BYTE POINTER IMAGPTR: =@IMAG£; 

BYTE ARRAY EBUF(0!3) : =" ERR *'; ^moo-o 

ARRAY MNEMC 0:41):=% 100000, %25'210001, «STOPPcR>> 
AHKAY UiMtLiu^. ..altr",'bKLG","BKSP","DLTD",*'DLTJ", «1» 

" DRI N", "DSPL", "HOLD", "JBID"," LIST", <<6» 
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LABEL READ; 
DEFINE PROCHEAD 



"LOCT","RELS","REPT","RSTT",** 
"STAT", "STJB", "STOP", "3TRT", 

7.^mii,7Amn «stopper>>; 



SPAC 



<<1 1>> 
<<1S>> 

<<20>> 



DEFINE DUPLICATE = 



(OPERANDPTR,ERRORCODE); 

VALUE OPERANDPTR; 

BYTE POINTER OPERANDPTR; 

INTEGER ERRORCODE; 

OPTION EXTERNAL 

#* 

ASSEMBLE(DUP)#; 



<<ADR COMMAND OPERAND>> 
<<ERROR NUMBER RETURN>> 



<<PR£VENT 
<<DISPLAY 
«MESSAGE 
<<LOCATE A 



PROCEDURE ALTR PROCHEAD; 

PROCEDURE BKLG PROCHEAD; 

PROCEDURE BKSP PROCHEAD; 

PROCEDURE DLTD PROCHEAD; 

PROCEDURE DLTJ PROCHEAD; 

PROCEDURE DRIN PROCHEAD; 

PROCEDURE DSPL PROCHEAD; 

PROCEDURE HOLD PROCHEAD; 

PROCEDURE JBID PROCHEAD; 

PROCEDURE LIST PROCHEAD; 

PROCEDURE LOOT PROCHEAD; 

PROCEDURE RELS PROCHEAD; 

PROCEDURE REPT PROCHEAD; 

PROCEDURE RSTT PROCHEAD; 

PROCEDURE SPAC PROCHEAD; 

PROCEDURE STAT PROCHEAD; 

PROCEDURE STJB PROCHEAD; 

PROCEDURE STOP PROCHEAD; 

PROCEDURE STRT PROCHEAD; 

LOGICAL PROCEDURE CWNDSRCH; 

BEGIN <<BINARY SEARCH FOR COMMAND 

INTEGER Nl:30, N2:=20, K=X; 

BYTE ARRAY T1(0:3)=Q; 

LABEL iNlEXT,LESSL, FOUND, EXIT; 

MOVE Ti!=IMAGPTR, (4); 



<<CHANGE JOB PRIORITY>> 
<<DISPLAY QUEUED JOBS>> 
<<BACKSPACE DEVICE» 
<<DELETE DEVICE OUTPUT>> 
<<CANCEL JOB>> 
<<DRAIN PHYSICAL DEV1CE» 
<<DISPLAY SYSTEM INFORMATION» 

EXECUTION OF A JOB OR JOBS>> 

JOB INFORMATION>> 

LISTING CONTROL>> 
JOB IN THE SYSTEM» 



<<RELEi4SE HELD JOB OH JOBS» 

<<REP£AT CURRENT I/O OPERATION» 

<<ABORT AND RESTART CURRENT OPERATION» 

<<SINGLE SPACE DEVICE>> 

<<DISPLaY ACTIVITY STATU3>> 

<<START A JOB>> 

<<STOP ALL OP£RATIONS>> 

<<START OPERATIONS» 



MNEMONIC>> 



NEXT: 



IF NH-1 z N2 THEN RETURN; 
K::(Nl+N2)<ScLSR(l); 



<<TRrtNSFER COMMAND MNEMONIC>> 



<<NOT F0UND>> 

<<FIND TABLE MIDPOINT>> 



LESSL: 
FOUND: 



ASSEMBLE(DDUP;LDD MNEM, I ,X; DCMP) 
IF = THEN GOTO FOUND; 
IF < THEN GOTO LESSL; 

Nl:rK; <<MOV£ LOWER TABLE LIMIT UP>> 

GOTO NEXT; 

N2::K; <<MOVE UPPER TABLE LIMIT DOWN» 

GOTO NEXT; 

ASSEMBLECLOAD P+1,X); 

GOTO EXIT; 

ASSEMBLEC 

PCAL ALTR; PCAL 

PCAL DRIN; PCAL 

PCAL LOOT; PCAL 

PCAL STAT; PCAL 
<<END ASS£MBLE>>): 



<<COMPARE MNEMONICS 



>> 



<<LOAD CORRESPONDING PCAL>> 



BKLG; 
DSPL; 
RELS; 
STJB; 



PCAL 
PCAL 
PCAL 
PCAL 



BKSP; 
HOLD; 
REPT; 
STOP; 



PCAL 
PCAL 
PCAL 
PCAL 



DLTD; 
JBID; 
RoTT; 
STRT 



PCAL 
PCAL 
PCAL 



DLTJ; 
LIST; 

SPAC; 



2-16 



EXIT: CMNDSRCHr-TOS; <<RETURN PCAL I NSTHUCTION>> 

END <<CMNDSRCH>>; 
SUBROUTINE GETCOMMAND; 
BEGIN 

@IMAGPTR:=@IMAGE; <<H£S£T POINTER TO START OF BUFF£R>> 

W0RDBUF:=[8/%15,8/%15]; <<RETURN,R£TURN>> 

MOVE W0RDBUF(1)!=W0RDBUF, (40); <<S£T IMAGE TO R£TURNS>> 

INPUTCIMAGE); <<R£AD A COMMAND» 
END <<GETCOMMAND>>; 
SUBROUTINE SKIPBLANKS; 
BEGIN 

SCAN IMAGPTR WHILE %6442l,l; 

IF CARRY THEN ASSEMBLEC DEL , ZERO) ; <<BLANK LINE - RETURN 0» 

@IMAGPTR::TOS; <<RETURN POINTER OR 0» 
END <<SKIPBLANKS>>; 
SUBROUTINE ERROR ( NUMBR) ; 
VALUE NUriBR; 
INTEGER NUMBR; 

OUTPUT(£BUF,NUMBR); <<PRINT DIAGN0ST1C>> 
«START OF MAIN CODE>> 
READ: GETCOMMAND; 

SKIPBLANKS; 

IF @IMAGPTR=0 THEN GO TO READ; <<BLANK LINE>> 

TOS:=CMNDSRCH; <<GET APPROPRIATE PCAL>> 

DUPLICATE; 

IF TOS-0 THEN BEGIN 

ERRORC*); <<ERR -INVALID COMMAND>> 
GOTO READ; 
END; 

@IMAGPTR:=@IMAGPTR+4; <<SET POINTER BEHIND MNEMONIC>> 

SKIPBLANKS; <<LOCATE OPERAND STRING>> 

TOS:=@IMAGPTR; «PASS POINTER BY VALUE, IF NO 0?RNDS>> 

T03:=@ERCOD£; <<PASS ERROR CODE BY R£F£R£NCE>> 

ASSEMBLECXEQ 2); <<CALL PROCEDURE>> 

DEL; <<REMOV£ PCAL INSTRUCTION FROM STACK>> 

IF ERCODE>0 THEN ERRORC ERC ODE) ; 

GOTO READ; <<READ ANOTHER STf.T£MENT>> 

END <<COMMAND I NTERPR£TER>> . 
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EXERCISES FOR SECTION II 



1. Some of these declarations contain errors. Change those which are invalid so that they will 
be valid SPL/3000 declarations: 

a) INTEGER I, J := 100, K; 

b) REAL NUMBER, INTEGER SUM := 0; 

c) INTEGER A := 123.456, TESTER := % 6412; 

d) REAL ZED := B := C := 0; 

e) INTEGER INTEGERB := % 102; 

f) INTEGER 7BETA = "A"; 

g) INTEGER BIGGE := 35767; 
h) SAM := 0; 

i) REAL BEGIN := 1.414; 
j) INTEGER $MIKE :=1; 

2. Assume these declarations: 

BEGIN 

REAL NUMBER := 123.45, CRUNCHER := 456.67, TOTAL; 
INTEGER I := 3, K := 6, J := -1, SUM, TEMP,M; 

Some of the assignment statements that follow contain errors. Change those which are 
invalid so that they will be valid SPL/3000 assignments: 

a) SUM := I + NUMBER / 2; 

b) TOTAL := \ (NUMBER ' 2 - CRUNCHER) \ / (3.1417/2.); 

c) TEMP := K + «ADD M TO SUM»SUM - I; 

d) TEMP := (I + J) - K «SUBTRACT AND SAVE> ; 

e) TOTAL := REAL (I + J) ^ K / \ CRUNCHER * REAL (TEMP) \ ; 

f) TOTAL := NUMBER ** 2 + CRUNCHER ** 2; 

g) TEMP := K * SUM := I + K + J; 
h) SUM := M MODS 
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3. Assume these declarations: 

BEGIN 

LOGICAL NBITS := % 177777, Rl := 0, R2 := 0, R3 := 0, R4 := 0, R5 := 0; 
LOGICAL AB := "AB", CD := "CD", EF := "EF"; 

What is the result in each of the assignment statements below? 

a) Rl.(l:4) := NBITS; 

b) R2 := AB CAT CD (8:8:8); 

c) R3 := (AB CAT CD(0:0:8)) CAT (CD CAT EF(0:0:8)) (8:8:8); 

d) R4.(15:l) :=AB.(8:8) + AB.(0:8); 

e) R5.(13:3) := % 423.(13:3) + NBITS.(4:3) + % 100000.(0:3); 

4. Assume these declarations: 

BEGIN 

INTEGER AB := "AB", 

RA := 0, RB := 0, RC := 0, RD := 0, RE := 0; 

What is the octal result in each of these assignment statements? 

a) RA := ((AB.(8:8) + 3) & LSL(8) CAT AB(8:0:8)) & CSL(8); 

b) RB.(8:8) := -1.(0:1) & ASR(8); 

c) RC := "1".(13:3) &LSL(3) + "2".(13:3) & LSL(3) + "3".(13:3) & LSL(3); 

d) RD.(15:1) := RE := AB & CSR(8) CAT "Z"(13:13:3); 

5. Reorder the lines of code shown below to restructure the program correctly. 

REAL PROCEDURE RAND; OPTION EXTERNAL; 

REAL ANS, X := 1.414, Z := .256; 

BEGIN 

ANS := RAND * X - Z; 
END. 

6. What are the five components of an SPL/3000 program? 

7. Which of the five program components cannot be omitted from a program? 

8. What is a compound statement? How is it treated by the SPL/3000 compiler? 
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SECTION III 
Transfer of Control 



In this section these topics related to transfer of control are introduced; 

• Labels 

• GO TO Statement 

• Logical Expressions 

• Logical Assignment 

• IF Statement 

• IF Assignments 



LABELS 

In order for one statement to refer to another it must be able to identify that statement. In 
SPL/3000, labels are used to identify statements. 

A label must always be followed by a colon (:) to separate it from the statement that it identifies. 
Here are some typical uses of labels: 

START^ BEGIN 

A:=B + 1; 

B := C * 2; (labels are underlined with dashes for illustration) 

END; 
^TOP: ABCOND := 0; 

Labels are declared in the data declaration portion of the program. One label can be used to 
identify only one statement in the program. The format of a label declaration is 

LABEL list of identifiers ; 

For example, 

LABEL START, STOP; 
LABEL SPIN; 
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NOTE: Labels do not have to be declared in SPL/3000 unless the programmer 
prefers to declare them for consistency and documentation. When they 
are not declared, labels declare themselves when they are used. 

Position of Labels 

In general, the position of a label is valid if it precedes or follows a statement: 

Valid Label Position 

START: A := B; 

IF A < B THEN START2j X := Z; 

BEGIN 

STARTS: A := B; 

X:=Z; 

STOP^ 
END; 

Invalid Label Position 

A :=B + C* START: X + 1; 

A := B + C * (ST_ART: X := Z + 2 * X); 

GOTO STATEMENT 

The GOTO statement transfers control to a location somewhere in the program specified by 
label. The labeled statement can occur before or after the GOTO and can itself be a GOTO 
statement. GO label, GOTO label, and GO TO label are equivalent formats. 

For example, 

GOTO LINKSPOT; «or GO TO or GO» 

LINKSPOT: A := A + C; 

LOGICAL EXPRESSIONS 

A logical expression is similar in form to an arithmetic expression-it consists of logical con- 
stants, logical variables, logical functions, and logical operators. The purpose of a logical 
expression is to evaluate certain conditions and relations to produce a value which can be 
interpreted either arithmetically (as a positive number) or logically (as TRUE or FALSE). 
A logical expression is not a statement of fact but rather an assertion that may be true or' 
false at any given time. 
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Logical Constants 

Logical quantities in SPL/3000 are 16-bit positive integers. Operations on logical values are 
provided by the hardware for addition, subtraction, multiplication, division, complement, and 
comparison. A logical value is considered TRUE if its integer value is odd, FALSE if its value 
is even (that is, only the last bit is checked when the result of a logical expression is used to 
make a decision). 

Logical constants are TRUE, FALSE, or any integer constant. 

Use of TRUE and FALSE is equivalent to the numeric values -1 and (111111 g and OOOOOOg). 

Logical Variables 

An identifier is declared to be type LOGICAL by means of a declaration: 

LOGICAL A := "Z.", «initialized» 
B := TRUE, 

C, «not initiahzed» 
D := %17; 

Whenever a logical identifier is used in the program, the compiler recognizes that it is type 
LOGICAL and is designed for logical values and arithmetic. Logical variables can be initialized 
in the same manner as integer and real variables, as shown in the preceding example. 

Logical Operators 

Logical operators have the following hierarchy (those at the top of the list are performed first 
in the absence of overriding parentheses; when operators have equal rank, execution occurs from 
left to right): 

Rank 1 : NOT Unary one's complement 

Primaries (see "Forming Logical Expressions") 

Rank 2: * Logical multiply 
/ Logical divide 
MOD Logical modulo (remainder) 

Rank 3: + Logical add 

- Logical subtract (no unary logical minus) 

Rank 4: =,>,<,<>,>=,<= 

Algeuraic or lOgicai comparison 
Byte Testing (see Section V). 

Rank 5: LAND Logical conjunction 

Rank 6: XOR Logical exclusive or 

Rank 7: LOR Logical inclusive or 

Integer range check (a <= b <= c) 
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UNARY COMPLEMENT 

NOT is an operator which requires only one operand. The value of each bit of the operand is 
changed in a one's complement fashion. (All one bits are reset to zero, and all zero bits are set 
to one.) 



LOGICAL ARITHMETIC 

Logical arithmetic (+, -, *, /, MOD) assumes that the 16-bit operands are always unsigned 
numbers. A logical value can range from to 65,535 decimal (0 to 177777 octal), but has no 
sign. A signed integer, on the other hand, can be positive or negative, but (since it has only 
15 bits for magnitude) can only range from to 32,767 (and to -32,768). The following 
example shows the difference between the logical and integer interpretations of a 16-bit pattern. 



1777778 


= 


+65535 


= 


-1 


octal 




logical 




integer 


value 




interpretation 




interpretation 



Thus, the same binary pattern can have two interpretations, a logical value and an integer value. 
This diagram shows how the logical and integer number lines overlap: 



LOGICAL NUMBER LINE 



1 _ — o- 

+32,767 +32,768 +65,535 



INTEGER NUMBER LINE 

J 






+32,767 -32,768 

(Two's complement) 

Patterns that would be negative integers if used as integer numbers are treated as very large 
logical values, and vice versa. For exact details on all types of arithmetic consult the HP 3000 
hardware documentation. 



RELATIONAL OPERATORS 

There are two types of relational comparisons in SPL/3000— logical and algebraic. Logical 
compares are formed by placing one of the relational operators between two logical quantities. 
Algebraic compares are formed by placing one of the relational operators between two 
arithmetic expressions : 

logical relation logical 
arithmetic relation arithmetic 
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The possible relations are: equal (=), less than (<), greater than (>), not equal (< >), less than 
or equal (<=), and greater than or equal (>=). Logical compares use the LCMP instruction to 
perform a 16-bit comparison which treats the sign bit as a data bit. Algebraic compares use one 
of three instructions (CMP, DCMP, FCMP) to perform comparisons taking into account the sign 
bit (negative numbers are considered to be smaller than positive numbers). The difference can 
be seen in this example : 

1777778 LCMP 1 «111111^ is greater» 

mills CMP 1 «1 is greater (since 111111 ^ = -1)» 

The result of a compare is a TRUE or FALSE value (-1 or 0): 

100>5^TRUE(-1) 
100 < 5 -> FALSE (0) 



BYTE TESTING 

SPL/3000 logical expressions allow the testing of bytes (characters) for various conditions. The 
complete set of byte testing and comparing facilities is discussed in Section V. Elements of 
the set allow testing when a string equals another string and when a particular byte is of a 
particular type (alphabetic, numeric, or other). The result is always TRUE or FALSE. 

For example, 

INBUF = "/*"LOR INBUF = "AB" «STRING COMPARISONS» 
CHAR = ALPHA «Is CHAR alphabetic?» 
CHAR <> NUMERIC «Is CHAR not numeric?» 

RANGE COMPARISON 

The following format tests whether a particular integer expression lies within a range determined 
by two other integer expressions: 

a<=h <= c 

a, b, and c are integer expressions. 

The result is TRUE (-1) only if b is both less than or equal to c and greater than or equal to a. 
In all other cases the result is FALSE (0). This test is performed by the CPRB (compare range 
and branch) instruction which uses the index register. 

10 <= 20 <= 30 -> TRUE (-1) 
10 <= 5 <= 30 ^ FALSE (0) 
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Forming Logical Expressions 

Logical expressions are formed by combined logical primaries, logical operators, and true/false 
tests on arithmetic expressions. Primaries can be any of the following: 

Constants — TRUE LOR 23 

Logical variables — ABC / Q39 

Logical bit operations — ABC & LSR(2) / 3 

Logical expressions in parentheses (ABC + 2) / 3 

Logical primaries preceded by NOT — NOT ABC 

NOT ((ABC + 2) / 3) 
NOT (ABC & LSR(2)) 

Logical assignment statements — ABC + (ABC := ABC LOR CBA) 

NOTE: The value is assigned to the variable and used in the expression to follow. 



Tests on arithmetic expressions (e.g., relational operators or compare range test) can also be used 
in logical expressions as primaries: 

(100 <= A <= 200) LAND (0 <= B <= 23) 
(2<A)LOR(B<=3) 

The primaries in a logical expression are evaluated from left to right with execution following 
the hierarchy of operators (high rank before low rank.) 

In general, the result of a logical expression is left as a one-word operand on the top of the stack. 
An exception is when a relational operator is encountered in which case the value of -1 
(TRUE) or (FALSE) is left on the top of the stack. Another exception is when the result of 
a relational operator is used to make a decision in a conditional branch (see "IF Statement"); 
in this case nothing is left in the stack and the statu? register is examined for the result. 

For example (assume logical variables in all cases), 

Valid 

(A LOR B) LAND C * (N23 < N24) 
I . 1 I I . I 



A + B = C LAND D 



NOT A MOD B LOR C = D LAND E 

V I ^ I 



NOT ((A MOD B LOR C = D) LAND E) 



1 
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Invalid 
A * LAND B 
A (B LAND C) 
-A LAND B 



Type Transfer Functions 

Logical expressions can be used in arithmetic expressions by converting them with type transfer 
functions: 

REAL (logical expression) 

INTEGER [logical expression) 

DOUBLE (logical expression) 

BYTE (logical expression) 
BYTE and INTEGER do not change the 16-bit value of the logical expression; it merely says to 
use it as an integer value. DOUBLE expands the 16-bit logical result into a 32-bit positive 
double integer. REAL floats the value to a 32-bit floating point. 

Arithmetic expressions can be used in logical expressions by converting them to type logical 
with type transfer functions 

LOGICAL (integer expression) 

LOGICAL (double integer expression) {leaves 32 bit value; special case; see Systems 

Programming Language manual } 

LOGICAL (FIXR (real expression)) 
LOGICAL (FIXT (real expression)) 
LOGICAL (byte expression) 

ASSIGNMENT OF LOGICAL EXPRESSIONS 

Logical expressions can be assigned to one-word variables (type logical, integer, and byte) with 
an assignment statement: 

LOGICAL EXIT, LASTRECORD, COMMAND, ANS; 
INTEGER LO LIMIT, DATA, HILIMIT, DELTA; 

EXIT := LASTRECORD LOR NOT (LOLIMIT <= DATA <= HILIMIT); 

COMMAND := DATA < DELTA 

ANS := LOGICAL (DELTA) + COMMAND * EXIT; 

DATA := (EXIT := %60) + (ANS := FALSE) LOR (%170707 LAND COMMAND); 
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IF STATEMENT 

When logical expressions are used with the IF statement, they give the programmer a very 
powerful tool for changing the order of execution on the basis of what happens during 
execution. The IF statement chooses which of two statements to execute based on whether 
a certain condition is true. For example, 

IF LASTRECORD LOR NOT (LOLIMIT <= DATA <= HILIMIT) 
THEN 

BEGIN 

EXIT := TRUE; 
LAST VALUE := DATA; 
END 
ELSE 

HILIMIT := DATA; 

There are two formats for the IF statement: 

IF condition THEN statement; «Format 1» 
IF condition THEN statement 

ELSE statement; «Format 2» 

condition consists of logical expressions and/or machine-dependent tests 

statement is any SPL/3000 statement including compound statements rBEGIN-END) 
and IF statements (unhmited nesting of IF statements is allowed) 

Format 1 

In this case, control is transferred to the statement following the THEN if the condition is TRUE. 
If the condition turns out to be FALSE, control falls through to the first statement following 
the IF statement. 



true 




IF <^cond y THEN statement ; 

, . I 

false L ^ CONTINUE: - - - 

For example, 

IF A < B THEN NX := A + B; 
IF NOT (FINAL LOR SUSPICIOUS) THEN 
BEGIN 

TEST'DONE := FALSE; 
GO TO AGAIN; 
END; 
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Format 2 



In this case, there are two alternative statements within the IF statement. If the condition 
turns out to be TRUE, control transfers to the statement following THEN; if the condition 
turns out to be FALSE, control transfers to the statement following ELSE. 



true 



IF 



false 




ELSE 



THEN statement 



statement ; — ►- 
t 



-►CONTINUE: 



When the statement chosen is complete, execution continues with the first statement following 
the IF statement. 

Valid 

IF A < B THEN XA := XA + A 
ELSE XA := XA + B; 

IF TESTVAR THEN Y := Y + 1 

ELSE IF EXTRATEST THEN Y := Y - 1; 

Invalid 

IF TEST THEN A := A + B; ELSE A := A - B; 
«; should not precede ELSE» 



IF Conditions 



The conditions which are used in IF statements to make decisions are composed of two items: 
logical expressions and branch words. Logical expressions have been covered already; branch 
words are hardware-dependent branch conditions: 



Branch Word 

CARRY 

NOCARRY 

OVERFLOW 

NOVERFLOW 

lABZ 

DABZ 

IXBZ 

DXBZ 



True Condition 

Carry bit on 

Carry bit off 

Overflow bit on 

Overflow bit off 

Increment TOS (S - 0). True if result is zero. 

Decrement TOS (S - 0). True if result is zero. 

Increment Index Register. True if result is zero. 

Decrement Index Register. True if result is zero. 



See Section IV 
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Branch Word True Condition 

< Condition code equals 1 
Condition code equals 2 

<= Condition code equals 1 or 2 

> Condition code equals 

< > Condition code equals or 1 
>= Condition code equals or 2 

Logical expressions and branch words can be combined using two special branch operators: 
OR and AND. AND has precedence over OR except that this can be overruled by using paren- 
thesis around the OR: 

IF (CARRY OR OVERFLOW) AND A = THEN 

OR and AND generate branch instructions such as BCC, and BOV. They never generate 
arithmetic instructions such as LOR and LAND. All parts of the condition may not be executed 
every time, since OR and AND branch out of the condition as soon as the truth value of the 
condition is determined. 

For details on the implications of branch words (overflow, DXBZ, condition codes, etc.) consult 
the hardware documentation. 



Nested IF Statements 

IF statements can be nested to any level; they are evaluated in the following manner: the 
innermost THEN is paired with the closest following ELSE and pairing proceeds outwards. 

IF condition 

I- THEN 

IF condition 

r-THEN 

IF condition 

r THEN statement 

^ ELSE statement 

•- ELSE statement; 

«NO OUTERMOST ELSE PART» 

«COMPOUND STATEMENTS CAN BE USED TO OVERRIDE STANDARD 
PAIRING» 
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Valid IF Statements 

IF A>BTHENC := A; 

IF A > B THEN C := B ELSE C := A; 

IF B LOR C LAND NOT D THEN GO TO START 

ELSE GO TO FINISH; 
IF OVERFLOW AND N = THEN 
BEGIN 

NO := 255; 
GO TO RESTART; 
END 
ELSE 

BEGIN 

N:=N-1; 
GO TO START; 
END; 

Invalid IF Statements 

IF A > B THEN A := B; ELSE B := A; «invalid ; » 

IF A > B THEN A := B ELSE B := A ELSE XY := A + B;«too many ELSES» 

IF CARRY LAND A = THEN N := N + 1; «incorrect use of LAND» 



IF EXPRESSIONS IN ASSIGNMENT STATEMENTS 

A powerful use of logical expressions and branch words is in the Expression IF construct. This 
construct uses a condition (the same rules apply as in IF statements) to choose between two 
alternative expressions: 

variable := IF condition THEN expression ELSE expression 

If the condition results in a TRUE value, the expression after THEN is assigned to the variable; 
if the condition results in a FALSE value, the expression after ELSE is assigned to the variable. 
Both the THEN part and ELSE part are required. The expressions can be any vahd SPL/3000 
expressions, including arithmetic expressions, logical expressions and IF expressions. Both 
expressions must result in data constructs of the same word size (byte assumed to be word). 
IF expressions can also be used in the middle of other expressions: 

A := B * C + (IF A = THEN N ELSE A); 

Valid IF Expressions 

N := IF A > B THEN A ELSE B; 

M := IF X = Z + 26 THEN X * Z ELSE X/Z; 

MAN := A * B + (IF 15 <= N <= 25 THEN N ELSE 0); 
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Invalid IF Expressions 

N := IF A < B THEN A; «MISSING ELSE» 

N := IF A < B THEN IF A < C THEN A ELSE B ELSE C 
ELSE D; «TOO MANY ELSES» 



EXAMPLE 3-1. DATE VERIFICATION 



This program illustrates the use of the IF and GOTO statements to verify that a given date 
(month, day, year) is valid. The date is entered from the keyboard in the form mm, dd, yy 
(v^here mm = month, dd = day, yy = year of century), mm is checked for the range 1 <= mm 
<= 12; dd is checked for range according to month, including a check for February and Leap 
Year. 



Input/Output 

ENTER A DATE MM,DD,YY 

07,15,71 

GOOD DATE 

ENTER A DATE MM,DD,YY 

00,15,42 

WRONG INPUT 

ENTER A DATE MM,DD,YY 

02,29,84 

GOOD DATE 

ENTER A DATE MM,DD,YY 

09,30,85 

GOOD DATE 

ENTER A DATE MM,DD,YY 

04,31,95 

WRONG INPUT 



Listing 

BEGIN «EXAMPLE 3-1. DATE VERIFICATION» 
COMMENT: 

THIS PROGRAM CHECKS A DATE FOR VALIDITY. (THE DATA INPUT 

FORMAT IS MM DD YY . ) 

EXAMPLES: FEBRUARY 29 IS A VALID DATE ONLY FOR LEAP YEARS, AND 

SEPTEMBER 3 1 IS NEVER A VALID DATE. 

NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 

INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/3000: 
BYTE ARRAY GOODMSG ( 0: 8) : ="GOOD DATE"; 
BYTE ARRAY ERRORMSG ( 0: 10) :=" WRONG INPUT"; 
BYTE ARRAY HEAD (0:20) :=" ENTER A DATE MM,DD,YY"; 
INTEGER MONTH, 

DAY, 

YEAR, 

LIMIT; 
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LABEL ERROR, DAYCHECK; 
«END OF DECLARAT10NS>> 

OUTPUT(HEAD); <<PR1NT HEADING» 

INPUTCMONTH, DAY, YEAR); <<READ DATE>> 

IF NOT(l<=MONTH<=l2)ORCr;AY<=0)OR(Y£AR<0) THEN GOTO ERROR; 

IF M0NTH=2 THEN «F£B IS SPECIAL CaSE>> 

BEGIN 

L1MIT::IF YEAR MOD 4=0 THEN 29 <<LEAP YlAR>> 

ELSE 28; 
GOTO DAYCHECK; 

END; 
LIMIT--IF(Ki0NTH = 9)0R(M0NTH=4)0R(M0NTH:S)0R(M0NTH = l DTHcN 30 

ELSE 3 1; 

DAYCHECK: 

IF 1<:DAY<=LIMIT THEN 

OUTPUTCGOODMSG) «VALID DATE>> 

gp^PQR. " OUTPUT(ERRORMSG); «PR1NT ERROR MESSAGE» 

END <<DATE VERIFICAT10N>> . 
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EXERCISES FOR SECTION III 



1. Identify those statements containing invalid label positions. 

a) SECTIONl : Y := A * B + X; SECTION2 : C := A ^ 2 + B ^ 2; 

b) Z := (X + Y) + SECTIONS: (X - Y); 

c) IF FLAG THEN DOIT : Z := -Z; 

d) BEGIN X := 0; Y := 0; START : IF TOTAL > 10.E17 THEN GO QUIT; END; 

e) BEGIN 

TEMP :=1./A + B; 
IF A < THEN GO AGAIN; 
END; STOP: 

2. Rewrite the collection of statements below into an equivalent program section that 
eliminates as many labels as possible. 

LOOP: IF TESTWORD > THEN GOTO COMPUTEl ; 

IF TESTWORD = THEN GOTO COMPUTE2;' 

IF TESTWORD < THEN GOTO COMPUTES; 
COMPUTEl : Y := A + B + C; 

GO TO ENDLOOP; 
COMPUTE2: Y := l./A + B + C; 

GO TO ENDLOOP; 
COMPUTES: Y := A * B * C; 
ENDLOOP: COUNT := COUNT + 1 ; 

IF COUNT <= 10 THEN GOTO LOOP; 

3. Single word values (16 bit) in the HP 3000 can be type INTEGER or LOGICAL. In 

the following exercise specify the INTEGER interpretation, LOGICAL interpretation and 
TRUE/FALSE interpretation by completing the table provided. 



OCTAL 
NUMBER 


AS DECIMAL INTEGER 


AS DECIMAL LOGICAL 


TRUE/FALSE 


177777 








000001 








000377 








000000 








177776 








100000 








000003 








000004 








000005 








000006 
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4. Mark the following logical expressions to show the order of evaluation. Assume that all 
variables are type Logical. 

Sample: A LAND B + NOT D 



a) A LOR B LAND C LOR D 

b) NUMBER <> LAND NUMBER * SCALE <= MAX 

c) X + Y / (Y - 5) * NUMBER LAND %77 

d) A * B <> NOT D/C 

5. Assume these declarations: 

BEGIN 

REAL Z; 

LOGICAL A, B, C, RESULT; 

INTEGER D,E,F; 

Identify the invalid logical assignment statements among those below: 

a) A :=BORC; 

b) A := B LOR C; 

c) A := B AND C; 

d) A := B LAND C; 

e) RESULT := FIXR(Z)//B; 

f) A := B + LOGICAL (D MOD 8 + NOT E * 2 / F * 3); 

g) RESULT := A > B LAND B # C; 
h) A :=D + E; 



i) RESULT 
j) RESULT 
k) RESULT 



= C LOR A := B; 
= A + B<D*E; 
= NOT A.(6:3) LOR (A := B LAND %177); 



6. Assume these declarations: 

LOGICAL A, B, C; 
INTEGER D, E, F; 

Examine the logical expressions given below. Rewrite those which are invalid, using type 
transfer functions where required, to produce syntactically correct logical expressions. 

a) A = BLORD<>%52 

b) D = E LAND F < D 

c) CMODD + F 

d) CLORDOF/E 
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NOTE: In the following exercises you must construct SPL/3000 statements to 
perform a given task. In order to make the exercises fun as well as 
meaningful each test will involve selecting a ''secret agent" based on 
specific criteria. The exercises are arranged to give you practice in con- 
structing IF statements of varying form. 

The table below indicates the variable names, data types and codes that 
you will need to interpret the selection criteria of the individual exercises. 

Secret Agent Characteristic Table 



CHARACTERISTIC VARIABLE 



SERIAL NUMBER 

AGE 

HEIGHT 

WEIGHT 

COLOR EYES 



ID 

AGE 

HT 

WT 
EYES 



SEX 

OCCUPATION COVER 



SEX 
JOB 



LANGUAGE 



LANG 



VALUES-(RANGE) 
or 
TYPE [CODES] 

INTEGER 0-100 
INTEGER 21-150 
INTEGER 48-84 
INTEGER 80-250 
INTEGER 1-BROWN 

2-BLUE 

3-GREEN 

4-GRAY 

5-OTHER 
LOGICAL TRUE = MALE 

FALSE = FEMALE 
INTEGER 0-STUDENT 

1-ATHLETE 

2-ENGINEER 

3-TEACHER 

4-BUSINESSMAN 

5-SPY (DOUBLE AGENT) 

6-PLUMBER 

7-ARTIST 

8-SCIENTIST 

9-SERVANT 
INTEGER 0-RUSSIAN 

1-CHINESE 

2-AMERICAN SLANG 

3-SPANISH 

4-SWAHILI 

5-ENGLISH 

6-POLISH 

7-LATVIAN 

8-ARABIC 

9-GERMAN 



REMARKS 



YEARS 
INCHES 
LBS 



Example: Test only the variables AGE and EYES. If the value of age is between 21 and 
25 and the code for blue eyes is present then transfer to a label called 
FO UNDONE. If either test condition fails transfer to a label called NEXT. 

Solution: IF (21 <= AGE <= 25) AND EYES = 2 THEN GOTO FOUNDONE 

ELSE GOTO NEXT; 
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7. Construct SPL/3000 statements to perform tests based on the four sets of criteria below. 
Use the values specified for each variable to construct each test. In cases where no entry 
is shown the variable need not be tested. 



ID 

a) 

b) 30-70 



AGE 

30 or less 



HEIGHT WEIGHT EYES SEX COVER LANGUAGE 

Student Am slang 



c) above 50 21-24/ 
37-50 



5' 6" 
5' 2" 

6' 7" 



90-110 Blue 



M 
F 



Servant/ Latvian 

artist/ 

teacher 



above 190 



Brn or m| Athlete/ Swahili/ 
but not ) scientist German 
both ) 



d) - 



45-50 



Brn and M 

OR 
Blu and F 



Businessman and Russian 

OR 

SPY and Chinese 



Assume that as a result of the last exercise no agent was found who possessed all of the capa- 
bilities required. Write a sequence of statements that will select the most qualified candidate. 
Assume that each successful test has a point value of one. Unsuccessful tests have a point 
value of zero. Accumulate the total point value for each agent being tested for each of the 
selection criteria in Exercise #7. 

Assume that an agent is required who has the largest number of necessary conditions listed 
below. The conditions are in priority order, such that, if an agent fails to meet any condi- 
tion he is not even checked for the next. Each criteria from lowest priority to highest has 
an increasing point value. Each test is worth a point; perform the tests and return the total 
(failure to first test returns 0; passing 5 tests returns 5). (Hint-use nested IF assignment 
statement.) 



Selection Criteria 



Most important < 

LANGUAGE SEX 
a) RUSSIAN MALE 



HEIGHT WEIGHT 

(5' 9"-6' 3") 160-210 



Least important 

AGE EYES COVER 
21-35 BLUE SPY 



SEX AGE HEIGHT WEIGHT EYES COVER LANGUAGE 

b) FEMALE 21-25 4' 10"-5' 5" 95-120 GRAY TEACHER SWAHILI 

10. Examine the two IF statement constructs shown below and determine the appropriate values 
of X required to complete the truth tables provided. 



Assume: INTEGER X; LOGICAL LI, L2; 



Case I 

X:=0 

IF LI THEN BEGIN 

IFL2 

THEN X := 1 

END 
ELSE X := 2; 



Case II 

X := 0; 
IF LI THEN 
IFL2 

THEN X := 1 
ELSE X := 2; 
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Table I 

Li L2 



X 



T T 

T F 

F T 

F F 



Table II 

Lj L2 



T 


T 




T 


F 




F 


T 




F 


F 
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SECTION IV 
Looping Constructs 



This section covers some topics related to looping operations: 

• Compile-time constants (EQUATE) 

• Abbreviations (DEFINE) 

• Indexing (index register) 

• Sets of data which can be indexed (arrays) 

• Looping control (FOR, DO-UNTIL, and WHILE-DO statements) 

• Computed transfers (SWITCH and CASE) 

EQUATE DECLARATION 

An EQUATE declaration assigns an integer value to an identifier. EQUATE is only a compile- 
time convenience; it does not allocate any storage, but merely provides a form of abbreviation 
for constants. When an equated identifier is used, the appropriate constant is substituted in its 
place. When EQUATES are used instead of actual constants, programs can be changed simply; 
instead of replacing every occurrence of a constant, only the EQUATE declaration need be 
changed. The format of an EQUATE declaration is 

EQUATE list of equates ; 

Each item in the equate list is an identifier followed by "=" and an integer constant expression 
consisting of operators (+, -, *, /), parentheses, integers, and previously defined equates. 
Normal rules of precedence apply to the operators. The value defined by the expression is 
assigned to the identifier. 

Valid EQUATE Declarations 

EQUATE X = 1,Y = X + 1,Z = Y + 1; 

EQUATE T = Z / 2 - 3 + X, N = (T + 3) * Z; 

A := (X + Y) * (T - N); «USE OF EQUATES IN ASSIGNMENT» 

Invalid EQUATE Declarations 

EQUATE A = B = C = 4; «multiple equate assignments not permitted» 

In the preceding valid EQUATEs X, Y, Z, T, and N equal 1, 2, 3, - 1, and 6 respectively. 
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EQUATE is not used for address equivalencing in SPL/3000 as it is in some languages. The 
conventions for referencing identifiers to specific addresses are covered in Section VII. 



DEFINE DECLARATION 

A DEFINE declaration assigns a block of text to an identifier. Whenever the identifier is used 
in the program thereafter, the assigned text replaces the identifier (except in comments). The 
format of a DEFINE declaration is 

DEFINE list of definitions ; 

Each definition is constructed as follows: 

identifier = text # 

A DEFINE is invoked by inserting the identifier into the program where its corresponding text 
will make sense. DEFINEs can be nested; that is, defined identifiers can be used in the text of 
subsequent defines. Also, DEFINEs can be used anywhere, even in other declarations. For 
example, 



DEFINE I = A, B, C, D, E #; 
INTEGER I; 



INTEGER A, B, C, D, E ; 



The two declarations on the left have the same effect as the declaration on the right. A good 
example of a DEFINE occurs in Example 2-2 where it is used to abbreviate a long, repeated 
procedure declaration. 



INDEX REGISTER 

The index register is a 16-bit program-accessed register which can be used as a subscript for 
arrays and pointers, as a simple arithmetic register, and as a FOR loop variable. In addition, the 
index register is used by several specialized instructions (IXBZ, DXBZ, CPRB, TBX, MTBX, 
SCAN, TNSL, PLDA, PSTA, LLSH). The index register can be used as a variable in SPL/3000 
programs by declaring a variable of type LOGICAL, INTEGER, or BYTE and equivalencing it 
to the hardware index register. The equivalencing is done by following the identifier in the 
declaration by the sequence "=X." For example, 

INTEGER INDX = X; 
LOGICAL X = X; 

X is not a reserved word which always means the index register; it can be used as an identifier 
to mean anything the programmer desires. X has a reserved meaning only if it occurs after an 
equals sign (=) in a declaration such as the above. Thus, the declaration below has nothing to 
do with the index register; it merely declares a simple variable that happens to be named X: 

INTEGER X; 
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All variables which are referenced to the index register will have the same value in a program. 
Since the index register is used implicitly in all array indexing and many other constructs of 
SPL/3000, the contents of variables equivalenced to the index register can change dynamically. 
The current value of the index register is the last value established there. The compiler does 
not save the value of variables referenced to the index register (except that th'e hardware saves 
the index register contents upon procedure entry and restores it upon procedure exit). The 
programmer must maintain the integrity of variables equivalenced to the index register if he 
desires consistent results. 



ARRAYS 

An array is a block of contiguous storage which is treated as an ordered sequence of "variables" 
having the same data type. These "variables" are accessed using a single identifier to denote the 
array and a subscript number to denote the particular "variable" (element) within the array. 
Thus array elements are sometimes called subscripted variables. 

SPL/3000 provides one-dimensional arrays (only one subscript is allowed,) in all data types 
(integer, logical, real, byte, long, double). Significant facts about SPL/3000 arrays are that sub- 
scripting automatically uses the index register to indicate the element number (since this is 
what the hardware provides); that there is no compile-time or run-time bounds checking (it is 
possible to access an array element beyond the declared bounds of the array); that arrays can be 
given initial values during declaration (but are not automatically initialized to any default value 
such as 0); and that arrays can be located in any region of the user's domain which can be 
addressed relative to the DB, Q, S, or P registers. 

Several advanced array features are covered in Section VII: explicit address referencing, unde- 
fined bounds, and explicit storage allocation. 

Array Declarations 

Arrays and their attributes, must be declared. The declaration determines the array's identifier, 
data type, bounds (number of elements), and initial values. The format for global arrays is: 

type ARRAY declaration list ; 

type is INTEGER, LOGICAL, or REAL (also BYTE, DOUBLE, and 
LONG — to be covered later) ; default type is LOGICAL; 

declaration list is a list of elements of the form: 

identifier (lower bound : upper bound) 

lower bound and upper bound are integer constant expressions 
(-32768 <= integer <= +32767); the upper bound must not be 
less than the lower bound. 
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For example, 



Valid ARRAY Declarations 
INTEGER ARRAY SORT (0:9), SILT (-5:22); 
REAL ARRAY RESULTS (10:20); 
LOGICAL ARRAY SINCERE (-7:-2); 
ARRAY TRUTH'TABLE (1000:1100); 

Invalid ARRAY Declarations 

ARRAY SOME (5:-5); «UPPER BOUND LESS THAN LOWER» 



Array Storage Allocation 

For each array that is declared, a location in primary DB (DB + to DB + 255) is allocated for 
a data label (address) which points to the zero element of the array (the element with subscript 
0). Then enough space is allocated in the secondary DB area (DB + 256 and above) to accom- 
modate the elements defined by the array bounds. (Integer and logical arrays use the same 
number of words as they have elements; real arrays use two words for each element.) The data 
label is set to point at the zero element of the space allocated. If is not within the declared 
bounds of the array, the data label actually points to a location that is not part of the array. 
The example below shows the space allocated for the declaration of four arrays in an SPL/3000 
main program. 



EXAMPLE OF SPACE ALLOCATION 

Declarations 

BEGIN 

INTEGER ARRAY ADATA (0:15); 
REAL ARRAY TPZD (-5:10); 
LOGICAL ARRAY TABLE (10:20); 
BYTE ARRAY DBUFR (0:80); 

END. 



NOTE: Byte addresses are inflated by a 
factor of two in order to allow 
true element indexing. 
See Section V for details. 



Primary 
DB 



A 



Secondary 
DB 



Allocations 



ADATA (0) address 



TPZD (0) address 



TABLE (0) address 



DBUFR (0) address 



ADATA 



TPZD 



TABLE 



DBUFR 



t 




15 



-5 


10 



10 

20 


80 
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In the diagrams of this book secondary DB is shown as starting at DB + 4008 (256io) for 
purposes of illustration. In actual practice the base of DB is adjusted by the compiler and the 
loader so that no space is wasted in DB. 

Array Initialization 

Array declarations can be used to initialize array elements with constants. Only the last array 
of any declaration list can be initialized. The format used to initiahze an array is as follows: 

identifier (bound : bound) := list of initial values 

list of initial values consists of a series of constants and repeat groups (hsts of constants 
which have been enclosed in parentheses and preceded by a decimal 
repetition factor) separated by commas. 

Repetition factors allow large arrays to be initialized without writing out all the constants. For 
example, the two declarations below are equivalent. The repetition factor in the first causes 
the constants in parentheses to be used three times to fill the array. 



INTEGER ARRAY A(0:8) := 3(1,5,10); 



INTEGER ARRAY A(0:8) -.= 1,5,10,1,5,10,1,5,10; 



Array elements are initialized from smallest to largest subscript and initialization will be partial 
(low subscripts only) if there are not enough constants to fill the entire array. Repetition factors 
cannot be nested. For example, 

REAL ARRAY DTALOG (-1:3) := l.,3.,4.7; 

This means that DTALOG (-1) = 1.0, DTALOG (0) = 3.0, DTALOG (1) := 4.7, DTALOG (2) 
is undefined, and DTALOG (3) is undefined. 

Arrays of all data types can be initialized: 

Valid Array Initialization 

ARRAY A(l:10) := 1,2,3,4,5,6,7,8,9,10; 

ARRAY N(5:10),MNM(-5:25) := "ABODE", TRUE,5,93; 

INTEGER ARRAY BOYS(100:150) := 10(1,2,3,4,5); 

INTEGER ARRAY GIRLS(1:150) := 5("AB", " ", 25), 100(%77); 

Invalid Array Initialization 

INTEGER ARRAY MEN(0:5) := 6(36), WOMEN(0:5) := 6(32); 
«only last array can be initialized» 

When strings are used to initialize and array, the bytes of the string are taken from left to right 
until exhausted. If an odd number of bytes is used to initialize a word array then the next 
byte is initialized to a blank character to fill out the word. 
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Accessing Array Elements 

A specific array element is accessed by specifying the array identifier followed by a subscript 
(index) in parentheses. The index can be any expression or assignment statement which results 
in an integer, logical, or byte value. The zero element of an array can be specified most 
efficiently by using the identifier without an index. 

identifier (index) 

identifier «ZERO ELEMENT» 

The index value is loaded into the index register and used to reference the array element. The 
hardware provides true element indexing for byte, word, and double word elements. That is, 
the value in the index register specifies the element offset (plus or minus) from the zero element 
of the array, not the word offset. The memory reference instructions take into account the size 
of the element (V2, 1, or 2 words) when performing indexing. The hardware does not, however, 
perform any bounds checking to insure that the indexed element lies within the declared bounds 
of the array. For example, 



A 
B 
C 
D 
E 
F 



= NEW(N); 

= NEW(I := I + 1); 

= NEW(N) + NEW(N + 1); 

= NEW(20 + NEW(IO)); 

= NEW; «ZERO ELEMENT» 

= NEW(O); «ZERO ELEMENT» 



IF STUFF(X + Z + (N * 2) / (N * 3)) = THEN A := X; 

SAMPLE ARRA Y 

BEGIN 

INTEGER ODDSUM := 0; 

INTEGER ARRAY DATA (1:5) := 5,4,3,2,1; 

«START MAIN CODE» 

ODDSUM := DATA(l) + DATA(3) + DATA(5); 
END. 



FOR STATEMENT 

A frequent operation in computing is the repetition of some calculation, incrementing a key 
variable each time the calculation is performed. In SPL/3000 there are several constructs to 
provide repetition or looping. The FOR statement is one of these; it is used to repeatedly 
execute one or more statements. Each time the sequence is executed, an integer count variable 
is incremented or decremented until some predefined hmit is exceeded. The FOR statement 
in SPL/3000 is very machine-dependent because it makes use of special-purpose looping in- 
structions (MTBA, TBA, MTBX, TBX). The other two methods of looping in SPL/3000 (DO- 
UNTIL and WHILE-DO) are less machine-dependent and more general, but do not provide 
automatic incrementing or decrementing of a count variable. 
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Basic Form 

Although there are four different formats of the FOR statement, the following one is basic: 

FOR integer var := initial expr STEP step expr UNTIL limit expr DO statement; 

integer var is any variable of type integer (including variables equivalenced to the 

index register) ; 
initial expr, are arithmetic expressions resulting in one-word quantities. 
step expr, 
limit expr 

statement is any statement including a compound statement. 

When the FOR statement is entered the first time, the value of initial expr, step expr, and limit 
expr are calculated. Initial expr is stored into integer var and the other two values are kept on 
the top of the stack. Then the integer variable is tested to check whether it exceeds the 
Kmit value. If not, the statement after DO is executed. Each time the statement is executed, 
the step value is added to the integer variable, which is then tested against the limit. When the 
integer variable exceeds the hmit, execution falls through to the statement following the FOR 
statement. A negative step value branches when the variable is less than the limit. For example, 

BEGIN 

INTEGER I, MAX, RANGE, SUM := 0, 
A := 2, B := 4, C := 5, FOFI; 
«START FOR STATEMENT» 

FOR I := MAX STEP-RANGE/4 UNTIL MAX-RANGE 
DO BEGIN 

FOFI := A*I'^2+B*I+C; 
SUM := SUM + FOFI; 
END; 
END. 

FOR I := 3 STEP 1 UNTIL LIM DO A(I) := 1*2; 

FOR J := X + Y STEP A UNTIL B DO NUM(J) := A*B; 

FOR K := N STEP 1 UNTIL STOP DO 

BEGIN 

MTTA/r (V\ •= MTTM (V^ + 1 * 

IF NUM(K) < APPOINT THEN 

NUM(K) := NUM(K)/2; 
A := NUM(K) + APPOINT 
END; 
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Alternate Forms 

If the "STEP step expr" part of the FOR statement is left out, a step value of one is assumed: 

FOR integer var := initial expr UNTIL limit expr DO statement; 
For example, 

FOR I := 3 UNTIL LIM DO A(I) := 1*2; 

If the integer variable is preceded by an asterisk (*), the loop statement is executed once before 
testmg the mteger variable. This guarantees that the loop statement is executed at least once 
even if it would fail on the initial test: 

FOR * integer var := initial expr STEP step expr UNTIL limit expr DO statement; 
FOR * integer var := initial expr UNTIL limit expr DO statement; 

For example, 

FOR * I := 1 STEP 1 UNTIL LIM DO SUM := SUM + NARN(I); 
FOR * SAMPLE := AVERAGE UNTIL LAST 
DO BEGIN 

RESULT := RESULT + DATA(SAMPLE) * SCALE / TOTAL; 
SCALE := SCALE / 2; 
END; 

FOR statements can be nested as deeply as the programmer desires. That is, the loop statement 
of a FOR statement can be (or contain) another FOR statement. Example 4-1 has a good 
example of two-level nesting of FOR statements. 

Cautions in the Use of FOR Statements 

FOR loops in SPL/3000 are very machine-dependent and use specialized machine instructions 
(TEA, TBX, MTBA, MTBX). These instructions require that certain control values (final value, 
step value, and address of the loop variable) remain in the stack during execution of the loop 
statement. After the range of the loop has been completely executed, the modify-test-and- 
branch instruction (MTBA or MTBX) expects the control values to be on the top of the stack. 
If they have been displaced from their expected position, the behavior of the loop control 
operations is unpredictable. 

Therefore, it would be prudent for the beginning SPL/3000 programmer to observe the 
following rules. 

• Do not use the stack explicitly within the loop statement without restoring any 
changes made because this makes it impossible for the compiler to keep track of 
the control values in the stack. (Do not refer to TOS, S relative variables, or 
stacked parameters; these are further described in Section VII.) 

• Enter FOR statements only from the beginning. Never branch into the loop 
statement. 
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• Exit FOR statements only at the end, except for PCALs. 

• Do not modify the index register in any way (without also restoring it) within the 
loop statement if a variable equivalenced to the index register is being used as the 
loop control variable. (The compare range construct is a little-known implicit use of 
the index register: A <= B <= C. Use of this construct or subscripted variables with- 
in the loop statement will cause unpredictable results if the loop variable is also the 
index register.) 

The WHILE-DO statement and DO-UNTIL statement provide alternatives to the FOR statement 
that are safer for the beginning programmer to use. 



EXAMPLE 4-1. INTEGER SORT 

This program uses FOR loops, EQUATES, and arrays to perform a simple sort on SIZE (9) 
integer values (6 characters, signed or unsigned decimal, or octal). The program converts each 
number entered to binary, and sorts the values using a straight-forward, ripple sort method. 
After the values are sorted, they are output (in readable form). 



Input/Output 

ENTER 10 INTEGER VALUES 

125 

+987 

-32768 



+52767 

90 

-87 

-2 

1 

17 

OUTPUT DATA 

-52768 

-87 

-2 



1 

17 

90 

125 

987 

52767 
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ENTER UP TO 10 NUMBERS, OR /£ 

-1 

S42 

%100 

9999 



125 

45 

/E 

OUTPUT DATA 
-1 



45 

64 
123 
G42 
9999 

Listing 

BEGIN <<EXAKPLE 4-U INTEGER SORT>> 

COMMENT: 

THIS PROGRAM WILL ORDER AN INTEGER ARRAY WITH SUBSCRIPTS 
RUNNING FROM ZERO TO "SIZE". THE ARRAY ELEMENTS WILL BE 
ORDERED ALGEBRAICALLY - SMALLEST VALUE TO LARGEST VALUE. 
NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMUi ATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/5000: 

EQUATE SIZE=9' 

BYTE ARRAY ASCI IBUF(0:23 ):=" ENTER 10 INTEGER VALUES "; 

BYTE ARRAY OUT(0: 1 1 ) : :"OUTPUT DATA "; 

INTEGER ARRAY SORT (0:SIZE) ; 

INTEGER SAVE, 
J,K, 
TEMP; 

«END OF DECLARATIONS>> 

OUTPUT(ASCIIBUF); <<OUTPUT I NSTRUCTIONS>> 
FOR J:=0 UNTIL SIZE DO «INPUT DATA LOOP>> 
INPUTCSORTCJ)); <<INPUT A VALUE>> 

COMMENT: 

ORDER THE ARRAY 

FOR K:=0 STEP 1 UNTIL SIZE-1 DO <<OUTER LOOP>> 
FOR J:rK+l STEP 1 UNTIL SIZE DO <<INN£R LOOP>> 
IF SORT(K) > SORT(J) THEN <<NOT IN ORDER>> 
BEGIN 

SAVE:=SORT(K); <<EXCHANGE VALUES>> 
SORT(K)::SORT(J); 
SORT(J):=SAVE; 
END; 
OUTPUT(OUT); <<PRINT H£ADING>> 
FOR K:=0 UNTIL SIZE DO <<QUTPUT LOOP>> 
OUTPUTCSORTCK))? «PRINT A VALUE» 
END <<I(JTEGER SORT>>. 
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DO UNTIL STATEMENT 

The DO UNTIL statement allows the programmer to execute repeatedly a specified statement 
(including compound statements) until a specified condition is true. The condition is evaluated 
and checked after each execution of the statement. The format is 

DO statement UNTIL condition ; 

statement is any SPL/3000 statement including a compound statement or another 
DO UNTIL statement. 

condition is a sequence of logical expressions and branch words connected exactly 
as in IF conditions. (See Section III.) 

Normally, the loop statement is a compound statement containing at least one statement that 
modifies one of the variables in the condition. Since the condition is tested after execution, 
the statement always is executed at least once. When the condition is false, execution transfers 
to the first statement following the DO UNTIL statement. The following diagram shows this 
sequence: 

DO 

L-^BEGIN < 

T statement 



statement 



END 
UNTIL 




t true 

For example, 

LOGICAL ARRAY A (0:19); 
BYTE ARRAY STRING (0:71); 
INTEGER SUB := -1, 1 := 0, J; 

DO SUB := SUB + 1 UNTIL STRING(SUB) < > 

DO BEGIN 

I :=I+1; 

END 
UNTIL I = 72; 
I:=-l; 
DO J := A(I := I+l) UNTIL I > 18; 



'0"; 



4-11 



WHILE DO STATEMENT 

The WHILE DO statement allows the programmer to repeatedly execute a statement as long as 
a specified condition is true. The condition is always evaluated and tested before executing the 
loop statement. The format is 

WHILE condition DO statement ; 

statement is any SPL/3000 statement including a compound statement or another 
WHILE DO, 

condition is any sequence of logical expressions and branch words connected as in 
IF conditions, except that the "true" sense of lABZ, DABZ, IXBZ, and 
DXBZ is reversed for this statement only. 

The logical value (true or false) of the condition is determined before each execution of the 
loop statement. The statement is executed as long as the result is true. Since the condition is 
checked first, the statement is not executed at all if the condition is initially false. When the 
condition is false, execution transfers to the next statement following the WHILE DO state- 
ment. The following diagram shows this sequence : 



WHILE 



false 




BEGIN 

statement 



statement 
' — END; 



For example, 



INTEGER I := -10, MAX, FCTR := 1; 
INTEGER ARRAY SQR(1:49), DATA (-10:50); 

WHILE DATA (I) < MAX AND I< 50 DO I := I+l; 
WHILE FCTR <= 49 DO 
BEGIN 

SQR(FCTR) :=FCTR'^2; 
FCTR :=FCTR+1; 
END; 
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EXAMPLE 4-2. TABLE SEARCH 

This example illustrates the use of the WHILE DO statement in a table sesirch application. 
Dummy pait numbers and stock quantities are kept as constants in an integer array for purposes 
of simplicity. The program requests a part number from the terminal and inputs the number. 
If the binary number does not compare to any part numbers in the inventory, the message NOT 
IN INVENTORY is printed. If the number corresponds to an inventory item, the quantity 
associated with the number is printed and the program loops back to the beginning. The user 
inputs /E to terminate the program. 

Input/Output 

ENTER A PART NUMBER (201 00<=PN<=201i39) 

20109 

44 ON HAND 

ENTER A PART NUMBER (201 00<=PN<=201 09) 

20101 

1000 ON HAND 

ENTER A PART NUMBER (20100<=PN<=201 09) 

20105 

144 ON HAND 

ENTER A PART NUMBER (201 00<=PN<z201 09) 

201 99 

NOT IN INVENTORY 
ENTER A PART NUMBER (20100<:PN<=201 09) 
20100 
12 ON HAND 

Listing 

BEGIN <<£XAMPLE 4-2. TABLE SEARCH>> 
COMMENT: 

THE PROGRAM INPUTS A PART NUMBER (201 00<=PN<=201 09) , SEARCHES 
A TABLE FOR THE PART, AND PRINTS THE QUANTITY ON HAND. AN 
ERROR MESSAGE IS WRITTEN IF THE PART NUMBER IS NOT IN THE 
INVENTORY TABLE. 

NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/3000; 
BYTE ARRAY NO'PART (0:16):=" NOT IN INVENTORY"; 
BYTE ARRAY OUTBUF (0:8):=" ON HAND"; 

BYTE ARRAY HEAD (0:3 7) :=" ENTER A PART NUMBER (201 00<=PN<=20109)"; 
INTEGER ARRAY INVENTORY (0:20):= <<PART NUMBER, QUANTITY>> 

20100, 12, 
20109,44, 
20103,79, 
20105,144, 
20106,3, 
20101, 1000, 
20104,5, 
20107,0, 
20102,20, 
20108,10, 

-1; 
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INTEGER PART, I; 

«END OF DECLARATIONS>> 

OUTPUT(HEAD); <<PRINT H£ADIMG>> 
INPUT(PART); <<REaD A PaRT NUMBER>> 
I::0; <<I(MITIAL1ZE SUBSCRIPT» 

WHILE(PART<>IiMVENTORY(I))AND(INV£(\)TORY(I)<>-l) DO l:=I+2; 
IF i:^VEMTORY(I) = -l THEN <<PART NOT IN LIST>> 

OUTPUT(NO'PART) 
ELSE 

OUTPUT ( I NV£NT0RY(I+1),0UTBUF); 
END <<TABLE SEARCH>>. 



SWITCH STATEMENT 

The purpose of a SWITCH is to transfer execution to one of several labeled statements within 
a program. A SWITCH is first declared and then invoked (through an indexed GOTO statement). 
A SWITCH invocation differs from a simple GOTO in that there are several destination state- 
ments to choose from, not just a single statement. The format of a SWITCH declaration is 

SWITCH identifier := list of labels ; 

The SWITCH declaration defines an identifier to represent an ordered set of labels. Each label 
in the list (from left to right) is assigned a number from to N - 1 (where N is the number of 
labels) which indicates the position of the label in the list. Note that the SWITCH declaration 
implicitly defines the list of label identifiers as labels; they need not be further defined in a 
LABEL declaration. For example, 

SWITCH SW := L0,L1,L2,L3; 

The labels defined in the SWITCH declaration identify various statements in the body of the 
program (see Section III). A switch of program control to one of these labeled statements is 
accomplished by using a GOTO statement with the switch identifier and an index. The format 

is 

GOTO switch (index); 
GOTO * switch (index); 

switch is a previously declared switch identifier. 

index is an arithmetic expression, logical expression, or assignment statement with a 
one-word result. 

* specifies no bounds checking (this overrides checking done to insure that the 
index references a valid label in the range of the switch; an invalid index value 
executes a statement that is not one of the predetermined branches, often 
with unpredictable results). 

NOTE: Any valid form of the GO construction can be used (GO, GOTO, GO TO). 



4-14 



The index is evaluated to an integer value and control is transferred to the switch label specified 
by that number. If the index falls outside the range of the switch declaration and the * option 
is not used, control transfers to the next statement following the GOTO statement. When the * 
option is used, bounds checking code is omitted. This produces a more efficient program, but 
is only safe when the programmer is certain that the indexes will be in bounds. For example, 

SWITCH SW := LO, LI, L2, L3; 



GOTOSW(A + B/2); 

GOTO * SW(A * B); 

LO: statement; «INDEX = 0» 

LI: statement; «INDEX = 1» 

L2: statement; «INDEX = 2» 
L3: statement; «INDEX = 3» 

CASE STATEMENT 

The purpose of a CASE statement is to select one of a set of statements for execution by using 
an index into a list of statements. The first statement has index and the others are ordinal 
numbers (1, 2, 3, ... ). After the execution of the specified statement, control transfers to the 
statement following the CASE statement. The format of a CASE statement is 

CASE expr OF body; 
CASE *expr OF body; 

expr is an arithmetic expression with a one-word result which specifies the statement 

number desired. 
ooay IS a compouiia stauemenu \a. iscrico kjl oodi^ciiiexiuo exx^xosc^^ ^j a ^^o^-> ^ — /- 

* specifies no bounds checking (as in SWITCH, this overrides checking and allows an 
expression value that can index out of the CASE body. 
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If the * option is not specified and the expression value does not specify a statement within the 
CASE body, no statement in the CASE body is executed and control transfers to the statement 
following the CASE body. For example, 

INTEGER I,N; 

CASE I OF BEGIN 
N:=3; 
; «NULL statement; NO ACTION, BUT HOLDS PLACE» 

N:=5; 

N := 2;END; 



EXAMPLE 4-3. INTEGER CALCULATOR 

This program uses a CASE statement to simulate a single accumulator calculator capable of 
performing arithmetic functions with integer values (-32768 < I < +32767). The program 
inputs a special character and an integer number. The character determines the function to 
be performed: 

value entry (.) 
addition (+) 
subtraction (-) 
muthplication (*) 
division (/) 

The actual binary value of the function character is adjusted downward to be used as an index 
into the CASE statement. When the operation is complete, the contents of the accumulator 
are output. 



Input/Output 




INTEGER CALCULATOR 


.,453 




ANS = 


453 


*,5 




AMS = 


2265 


-,22 




ANS = 


2243 


/,20 




ANS = 


1 12 


/,2 




ANS z 


56 


-,42 




ANS z 


14 


#,46 




ENTRY 


ERROR 


.,46 




ANS = 


46 


-,535 




ANS = 


-489 


T 
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Listing 

BEGIN <<EXAMPLE 4-3. INTEGER CALCULATOR>> 
COMMENT: 

INTEGER CALCULATOR - SINGLE ACCUMULATOR 

INTEGER ARITHMETIC OPERATIONS MAY BE PERFORMED BY ENTERING 
AN OPERATOR CHARACTER FOLLOWED BY AN INTEGER NUMBER. THE 
OPERATOR CHARACTERS ARE: 

. LOAD ACCUMULATOR 
+ ADD 
- SUBTRACT 
* MULTIPLY 
/ DIVIDE 
T TERMINATE 
NO CHECK IS MADE FOR ARITHMETIC OVERFLOW CONDITIONS. 
NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/5000; 
BYTE ARRAY [vSG(0: 1 7) : -"I NTEGER CALCULATOR"; 
BYTE ARRAY ERR(0: 10) :=" ENTRY ERROR"; 
BYTE ARRAY ANSW(0: 5) : ="ANS = "; 
BYTE ASC; 
INTEGER ACCUM::0, 

OPERAND: :0, 
INDEX; 
LABEL FUNCTION, 

EX 1 1 • 
«END OF DECLARATIONS>> 

OUTPUT(MSG); <<PRINT HEADING MESSAG£» 
FUNCTION: 

INPUTCASC, OPERAND); <<READ OPERATOR AND VALUE» 
IF ASC="T" THEN GOTO EXIT; <<TERMI NaTE>> 
IF %52<=ASC<=%57 THEN <<VAL1D OPERATOR>> 

INDEX:=ASC-%52 
ELSE <<INVALID OPERATOR>> 
BEG I N 

OUTPUT(ERR); <<ERROR>> 
GOTO FUNCTION; <<RESTART>> 
END; 
CASE INDEX OF <<I NDEX BY OP£RATION>> 
BEGIN 

ACCUM: =ACCUM*OP£RAND; << * FOR MULTIPLY>> 
ACCUM:=ACCUM+OPERAND; << + FOR ADD>> 
<<NULL STAT£MENT>>; << , NO OPERATION>> 

ACCUM:=ACCUM-OPERAND; << - FOR SUBTRACT>> 
ACCUM:=OPERAND; << . FOR LOAD ACCUMULATOR>> 

ACCUM:=ACCUM/OP£RAND; << / FOR DIVIDE>> 
END; 
OUTPUT(ANSW,ACCUM); <<PRINT LABEL AND ACCUMULATOR>> 
GOTO FUNCTION; <<RESTART» 
EXIT: END <<INT£GER CALCULATOR>> . 
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EXERCISES FOR SECTION IV 



1. Identify the invalid EQUATE declarations. 

a) EQUATE BROWN = 1, BLUE = 2, GREEN = 3, GRAY = 4, OTHER = 5; 

b) EQUATE BIGNUMBER = 1.73E15; 

c) EQUATE XSQUARE = 144-2; 

d) EQUATE PI = 31417; 

e) EQUATE ARRAYLIMIT = "(0:100)"; 

f) EQUATE X = 2, Y = X*3, Z = X + Y,W=(Z*Z-X)/X + Y; 

g) EQUATE NEGLIMIT = -144, POSLIMIT = \ NEGLIMIT \ ; 
h) EQUATE LETTERS = "AB"; 

i) EQUATE Z = X + Y, X = 2, Y = X*3; 

2. Identify the invalid array declarations. 

a) INTEGER ARRAY SAM (0, 10) := 0, 1, 2, 3, 4, 5, 6, 7, 8, 9; 

b) REAL ARRAY ALPHA (-99:0); 

c) ARRAY ATANK (0:8) := " NOW IS THE TIME"; 

d) LOGICAL ARRAY (0:4) := "ABCDEFGHIJ"; 

e) REAL ARRAY BETA (1:10) := 10(0.0), GAMMA (1:10) := 10(0.0); 

f) LOGICAL ARRAY LETTERS (1:6) = OUTPUT DATA; 

g) INTEGER ARRAY Nl (0:4), N2 (0:4), N3 (0:4), N4 (0:4) := 4 (0.0); 
h) REAL ARRAY RESULT (0:100) := 10(10(0.0)); 

i) LOGICAL ARRAY EQUATE (0:6) := 7(FALSE); 

j) INTEGER ARRAY SMALL (0:100) := 100(0, 1, 2, 3, 4, 5, 6, 7, 8, 9); 

3. Determine whether each of these statements is true or false. 

a) Arrays must always contain a zero element. 

b) Array bounds must not be negative. 

c) Integer arrays can be initialized with string constants. 

d) Subscripts for arrays must be constants. 

e) HP 3000 hardware permits arrays to be accessed outside their defined bounds. 

4. Examine the following assignment statements. 

INTEGER ARRAY NUMBER (0:10); 

NUMBER (0) := NUMBER (0) + 1; «SOLUTION 1» 
NUMBER := NUMBER + 1; «SOLUTION 2» 
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a) Do both statements achieve the same result? 

b) If so, which solution is the most efficient? V\niy? 

5. Write an equivalent declaration for the logical array DATA replacing the equate identifiers 
with integer constant bounds. 

EQUATE MIDPOINT = 52, 

RANGE = 75, 

LOWER = MIDPOINT - RANGE, 

UPPER = MIDPOINT + RANGE; 
ARRAY DATA (LOWER : UPPER); 

6. Refer to the tables in the back of this book and EQUATE the bit values of the appropriate 
ASCII characters to the following identifiers. 

BLANK 

RETURN 

LINEFEED 

NULL 

7. In the program below, change the extract bit from 5 to 7 and the bit field length from 4 to 
3 by replacing one line. 

EQUATE S = 5, L = 4; 
X := ITEM.'A.(S:L)+ 

ITEM'B.(S:L)+ 

ITEM'C.(S:L)+ 

ITEM'D.(S:L)+ 

ITEM'E.(S:L)+ 

ITEM'F.(S:L); 

8. Use the DEFINES given to rewrite the statements shown below in expanded form. Substitute 
the defined string when the define identifier is invoked. 

a) DEFINE RANGE = <= DATA <= #; 

IF 5 RANGE 20 OR X RANGE Y THEN X := X + 1; 

b) DEFINE INIT = 1, 3, 5, 7, 9, 11, 13#; 
ARRAY ONE (0:7) := INIT; 
ARRAY TWO (0:7) := INIT; 

c) DEFINE AVAIL = (0:2)#, 

STAT =(2:6)#, 
SEG = (8:8)#; 
IF LINK. AVAIL = 1 AND LINK. STAT <4 THEN LINK. SEG := 0; 
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9. The declarations and statements shown below were written by a programmer who liked to 
abbreviate certain reserved words. In specific cases he also thought that THEN really meant 
ASSIGN and ELSE was more appropriately called OTHERWISE. Use the DEFINE state- 
ment to transform the programmer's abbreviations into the correct reserved words. 

EQ LO = 1, HI = 50; 
INTARYBUF(LO:HI); 
DEFSUB = (15)#; 
LOG RESULT; 
BEGIN 

RESULT := IF BUF SUB ASSIGN 10 
OTHERWISE 20; 

10. For this array declaration, compute the DB address of the zero element. (The value the 
SPL/3000 compiler will place into the array data label). Assume array space allocation 
starts at DB + 256 (decimal). 

ARRAY TOTAL (100:199); 

11. Use a FOR statement to find the smallest, largest and average value of an integer array. 
Assume all values are positive. 

EQUATE N = 99; 

INTEGER ARRAY AGE (0:N); 

12. a) Select the correct value of the index variable after completion of the FOR statement. 

FOR INDEX := 1 UNTIL N DO «:statement»; 

Select one. (N - 1) (N) (N + 1) 

b) In the above exercise is the value of the index variable available to the programmer at 
the completion of the loop. 

13. Determine the number of times each statement marked with a star (•) will execute. 

Assume: INTEGER I, X = X; LOGICAL N; 
INTEGER ARRAY A(0:10); 

a) X := 5; 

LOOP: IF DXBZ THEN GOTO NEXT; 
A(X) :=0;* 
GOTO LOOP; 

NEXT: 

b) I:=7 
DO 

A(I :=I + 1) :=0* 
UNTIL LOGICAL (I); 
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c) N:=0; 

WHILE (N := N + 1<= 10) 
DO A(N) :=0;* 

d) N:=0; 

WHILE (N := N + 1) <= 10 
DO A(N) :=0;* 

14. A frog is 500 inches from a walL With each jump he makes, he jumps half of the remaining 
distance to the wall. Write an SPL/3000 program to determine the minimum number of 
jumps he must take until his distance from the wall is less than .025 inches. (Use a WHILE 
statement to solve the problem.) 

15. Examine the SWITCH declaration and invocation shown and the switch index values pro- 
vided. Determine which statement label is associated with each value of the index 
(INDEX). 

SWITCH SELECT := FIRST, SECOND, THIRD; 
GOTO SELECT (INDEX); 
NEXT: next statement; 

FIRST: statement; 

SECOND: statement; 

THIRD: statement; 

a) INDEX = 

b) INDEX = 3 

c) INDEX = -1 

d) INDEX = 2 

16. True or False? 

The body of a CASE statement can 

a) contain another CASE statement. T/F 

b) not contain a SWITCH invocation. T/F 

c) contain a null statement. T/F 

d) contain a procedure call statement. T/F 

e) not contain a compound statement. T/F 

f) contain a FOR statement. T/F 

17. A program which prints mailing labels reads an individual's title, name, and address. In 
order to save storage space, the titles have been coded. 

= "MR.J' 

1 = "MRS." 

2 = "MISS" 

3 = not used 

4 = "DR ^ ^" ( - represents a blank) 
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Write a CASE statement which uses the title code (TITLE) to select the actual 4-character 
title. Store the characters selected in a type double (32 bit) variable called PREFIX (e.g., 
PREFIX := "MR.."). (Double integer variables are explained in Section VII.) 

Assume: DOUBLE PREFIX; INTEGER TITLE; 
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SECT I OH V 
Bytes, Pointers, Move, and Scan 



This section presents a class of statements that is very machine-dependent — the MOVE and SCAN 
statements. In many cases proper use of these statements requires a knowledge of expUcit stack 
access on the part of the programmer as these statements use the stack for temporary arguments 
and results. Since the MOVE and SCAN statements use byte data types and pointers, these two 
concepts are discussed first. 



BYTES 



A byte is one-half of a word - 8 bits. SPL/3000 provides facilities for the manipulation of byte 
variables, arrays, constants, and pointers. Each byte is treated as an 8-bit quantity and can 
represent numeric or ASCII character data. Because the hardware provides true byte addressing 
(including element indexing for bytes), two distinct bytes can often be packed conveniently 
into a single memory word. The following constants can be stored in a byte: 

%377 

12 

%(16)A2 (See Section VII; this is base 16.) 

"A" 

"%" 

%( 2) 1001 11 01 (See Section VII; this is base 2.) 

FALSE 

Byte Variables 

Each single byte variable is allocated one word of storage in the primary DB area. References 
to the variable always refer to the left-most byte of the word (bits 0-7); the other bits are not 
used. The declaration format is 

BYTE identifier list ; 

identifier list consists of a series of identifiers, each optionally followed by an 
initialization: 

identifier := constant 

If the constant requires more than eight bits for its representation, a warning message is given 
and the variable is initiahzed with the least significant eight bits, (the rightmost) of the constant. 
This constant is stored in the left half of the word allocated for the variable; the right half is 
filled with zeros. For example, 
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BYTE CHAR := "A", B := "B", C; 



DB + 
DB + 1 
DB + 2 



78 15 


A 





B 





undefined 







CHAR 

B 

C 



Byte Arrays 



A byte array is an ordered sequence of bytes (packed two per word) in a contiguous area of 
memory and a byte address (data label) that points to the zero element (byte) of that array. 
Any byte in the array can be accessed by using the array identifier and a subscript value which 
identifies the byte desired. The declaration format is 

BYTE ARRAY declaration list; 



declaration list 



bounds 



initialization 



is a list of declarations, each composed of an identifier followed by 
a pair of bounds in parentheses and an optional initialization. 

is a pair of integers that specify the element numbers of the lower and 
upper bytes of the array (upper bound must not be less than the lower); 
the format is 

{lower bound : upper bound) 

The number of bytes in the array is (upper bound — lower bound + 1). 

is similar to that for integer and real arrays; the constants are packed 
into the array, starting with the lowest byte (lower bound), eight bits 
per element. Only the least significant eight bits of each list element 
are used. Only the last array in a particular Ust can be initialized. Un- 
initialized arrays are not filled with any default value. 



For example, 



BYTE ARRAY MESSAGE (0:10), 

ANSWER (-10:10), 

QUESTION (0:5) := "WHERE?"; 
BYTE ARRAY INFO (-10:99) := 20("X"),20("Y"),20("Z"), 

20("Z"),20(%377),10(0); 

When a byte array is declared, a data label is allocated in the primary DB area; this contains a byte 
address which points to the space allocated for the body of the array in the secondary DB area. 
For consistency, SPL/3000 aligns byte arrays so that the zero element is always on a whole word 
address. Bytes are packed two per word. The amount of space allocated for a byte array of n 
elements is (n + l)/2. Therefore, an array of 10 elements requires 5 words while an array of 11 
elemeents require 6 words. If the lower bound is odd, the space required equals (n + 2)/2. 
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BYTE ARRAY QUESTION (0:5) := "WHERE?" 

Address Contents Meaning 

DB + 1000= QUESTION (byte address) 



DB + 400j 



lOOOg 




w 


H 


E 


R 


E 


7 







QUESTION (0), QUESTION (1) 
QUESTION (2), QUESTION (3) 
QUESTION (4), QUESTION (5) 



The data labels (addresses) for byte arrays have a format different from data labels for other 
arrays. Bits 0-14 contain a word address relative to DB, while bit 15 specifies the left or right 
half of the word. Bit 15 equal to refers to the left byte (bits 0-7 of the word) and bit 15 
equal to 1 refers to the right byte (bits 8-15 of the word). The byte address must be shifted 
right one bit to produce the address of the word in which the byte is located. Effectively, 
byte addresses are word addresses inflated by a factor of two with an extra bit added for byte 
address resolution. 

Data elements in byte arrays can be accessed by using subscripted array identifiers. These sub- 
script values uniquely identify single bytes in an array and appear enclosed in parentheses 
following the array identifier. 

CHAR(5) 

MESSAGE «IMPLIES ZERO ELEMENT» 

QUESTION (VAR + 3) 

The compiler emits code to place the subscript value (byte element number) in the index register. 
Bits 0-14 of the index register then specify to the hardware the word offset (plus or minus) from 
the zero element of the array and bit 15 specifies which byte of the word is addressed. 

HP 3000 provides many instructions which aid in the accessing and manipulation of bytes: 

Load and Store Bytes (LDB, STB) 
Test byte (BTST) 

Immediate operands (LDI, LDNI, CMPI, CMPN, ADDI, SUBI, MPYI, DIVI, ORI, XORI, 
ANDI, LDXI, LDXN, ADXI, SBXI) 

Move bytes (MVB) 
Move bytes while (MVBW) 
Scan bytes while (SCW) 
Scan bytes until (SCU) 
Compare bytes (CMPB) 
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Byte Type Transfer Functions 

When bytes are used in an expression, they are actually operated upon by INTEGER arithmetic; 
the hardware does not provide byte arithmetic. When byte values are mixed with other data 
types in an expression, it is necessary to use the type transfer functions. 

The function BYTE causes the result of an integer or logical expression to be treated as type byte: 

BYTE {integer expression) 

BYTE {logical expression) 
The function INTEGER causes the result of a byte expression to be treated as type integer: 

INTEGER {hyte expression) 
The function LOGICAL causes the result of a byte expression to be treated as type logical: 

LOGICAL {byte expression) 
The function REAL floats a byte expression value into a real number: 

REAL {byte expression) 

POINTERS 

A pointer is a type of variable which contains the 16-bit address of another data item in the 
program. The 16 bits of the pointer represent the address of a variable; when the pointer is 
used in an expression it creates an automatic indirect reference to the variable (the object of 
the pointer). 

A pointer is very similar to the data label (address) which is allocated in primary DB for an 
array. In both cases the address can be indexed by specifying an element subscript and indexing 
is done relative to the location specified by the address (the zero element). Pointers, however, 
do not have any array space allocated to them and are more general-purpose in use. 

While the data label of an array always points to the same location (the zero element of the body 
of the array), a pointer can be made to point to different data items during the life of a program. 
That is, the address in a pointer variable can be changed during the program so that the pointer 
can be used for many different purposes. 

Pointer Declaration 

Pointer identifiers are declared before use, just like every other identifier in an SPL/3000 pro- 
gram. The format is 

type POINTER pointer list ; 

type is either BYTE, LOGICAL, INTEGER, REAL, DOUBLE, or LONG. 
(The default type is LOGICAL.) 

pointer list is a sequence of identifiers separated by commas. Each identifier may 
be optionally followed by an initialization: 

identifier := @variable 1 @ means the address of the data 

identifier := @array element \ item in this context 
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Each pointer is allocated a location in the primary DB area and the address of the data item 
pointed to is stored in that location (if the pointer is initialized). In this context only, the com- 
piler converts byte addresses to word addresses and vice versa. For example, 

LOGICAL LSIMPVAR; 

BYTE ARRAY BARY(0:79) ; INTEGER ARRAY IARY(0:5) ; REAL ARRAY RARY(0:3); 

BYTE POINTER CHAR, 

FIRST := @BARY, 

LAST := @BARY(79); 
INTEGER POINTER TESTVAL := @IARY(5), 

NEXTNO; 
POINTER BOOLl, «LOGICAL ASSUMED» 

BOOLZ := @LSIMPVAR; 
REAL POINTER X := @RARY, 
Y, 
Z; 



Accessing Through Pointers 

A pointer can be used in three contexts (assume these declarations). 

INTEGER A, DATA := -1, SAM := 300, B := 7; 
INTEGER POINTER IP := @DATA; 

• A pointer can be used anywhere the object of the pointer could be used; this generates 
an automatic indirect reference to the object through the pointer. 

A := IP ; «A = -1» 



A 




IP 




DATA 




addr. of DATA 


-1 







A pointer can be used on the left side of assignment statement to change the value of 
the object of the pointer. This also generates an automatic indirect reference to the 
object through the pointer. 



if := »AiVi + jo; 



^-'^T-v A m 






DATA 


< — 


IP 


resu 


lit of expres 




addr. of DATA 


307 
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A pointer can be preceded by an @ to refer to the actual contents of the pointer (the data 
label), not the object of the pointer. This generates a direct reference to the pointer itself. 



A := @IP: 



«A = address of DATA» 

A IP 



addr. of DATA 



@IP := @A; «IP = address of A» 

IP result of expression 



addr. of A 



Here is an example that shows a pointer being used to check every third character of an input 
buffer until it finds one that is equal to "A". Remember that < > means "is not equal to". 

BYTE ARRAY INPUTSTRING(0:80); 
BYTE POINTER CHAR := ©INPUTSTRING; 
LABEL CONTINUE; 



CONTINUE: IF CHAR < > "A" 
THEN 

BEGIN 

@CHAR := @CHAR + 3; 
GO TO CONTINUE; 
END; 

Pointers can be changed by using @ and assigning a new address. When @ is used with a pointer, 
it refers to the contents of the pointer (not the object of the pointer). But when @ is used with 
any other variable, it refers to the address of the data item, not its contents. The following 
short example shows both uses: 

INTEGER AVAL, BVAL; 

INTEGER POINTER DATAPTR := @AVAL; «INITIALIZE TO ADDRESS OF AVAL» 

INTEGER SUM; 

SUM := @DATAPTR + @BVAL; 

«SUM NOW EQUALS THE TOTAL OF TWO ADDRESSES: THAT CONTAINED 
IN DATAPTR-THE ADDRESS OF AVAL-AND THE ADDRESS OF BVAL» 

There Eire many possible combinations of operations that are possible using pointers, variables, 
and @. 



LOGICAL VAR; 
POINTER PT1,PT2; 

PTl := PT2; 

PTl := @PT2; 

@PT1 := @PT2; 

@PT1 := PT2; 



«object of PT2 is stored into object of PT1» 
«address in PT2 is stored into object of PT1» 
«address in PT2 is stored into PT1» 
«object of PT2 is stored into PT1» 
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PTl := VAR; 
PTl := @VAR; 
@PT1 := @VAR; 
@PT1 := VAR; 

VAR :=PT1; 
VAR :=@PT1; 



«value of VAR is stored into object of PT1» 
«address of VAR is stored into object of PT1» 
«address of VAR is stored into PT1» 
«value of VAR is stored into PT1» 

«object of PTl is stored into VAR» 
«address in PTl is stored into VAR» 



Indexed Pointers 

Pointer variables can be indexed in the same manner as arrays to reference data items. The sub- 
script specified is applied as an element index (plus or minus) relative to the address in the 
pointer. The original contents of the pointer are not changed by any indexing done with it. 
For example, 

REAL ARRAY DATA(0:5); 

REAL POINTER PNTR := @DATA(1); 

I ^ DATA 

DATA(O) DATA(l) DATA(2) DATA(3) DATA(4) DATA(5) 
I I _i_ 1 ' ' ' 



PNTR(-l) 



PNTR(O) 



PNTR(l) PNTR(2) 
PNTR 



PNTR(3) PNTR(4) 



The short example above (where every third byte of an input buffer was searched for the 
character "A") can be written equivalently using an indexed pointer. In this case the contents 
of the pointer are not changed during program execution. 

BYTE ARRAY INPUTSTRING(0:80); 
BYTE POINTER CHAR := @INPUTSTRING; 
INTEGER SUB := 0; 
LABEL CONTINUE; 



CONTINUE: IF CHAR(SUB) <> "A" 
THEN 

BEGIN 

SUB := SUB + 3; 
GO TO CONTINUE; 
END; 



Type Compatibility With Pointers 

When a pointer is referenced, the object of the pointer is always treated as if it were of the same 
type as the pointer. This allows any data area to be accessed on 8, 16, 32, or 48-bit boundaries 
using byte, integer, real or long pointers. Thus, a logical array can be accessed as if it were a 
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byte array (8 bits at a time instead of 16) by using a byte pointer which contains a byte address 
pointing to the zero element of the logical array. The same storage can be accessed as a real 
array (32 bits at a time) by using a real pointer. Pointers whose types denote double word data 
types contain word addresses but are indexed two words at a time by the hardware to provide 
true element indexing. For example , 

LOGICAL ARRAY LAR(0:5); 

BYTE POINTER BPT := @LAR; «BYTE ADDRESS OF LAR(0)» 

REAL POINTER RPT := @LAR; «WORD ADDRESS OF LAR(O), 2 WORD INDEXING» 

STORAGE 



BPT |(0) id) I (2) I (3) I (4) ,(5) I (6) ,(7) ,(8) ,(9) ,(10),(11)| 
LAR |(0) 1(1) ,(2) I (3) ,(4) 1(5) , 



RPT 1(0) 



(1) 



(2) 



STORAGE ACCESS 

Within declarations, pointers can be initialized to any type of object; the compiler adjusts the 
address of the object to the type of the pointer (if necessary). That is, word addresses are con- 
verted to byte addresses and vice versa. 

When the value of a pointer is changed dynamically, however, the compiler does no compatability 
adjusting. Thus, any value stored into a pointer during execution of the program is assumed to 
be a correct address for that type of pointer. For example, if the address of a byte variable is 
stored into an integer pointer, the byte address is assumed to be the word address of an integer 
data item when the pointer is used. Unless the byte address is shifted right one bit, this address 
will be incorrect and may cause a memory bounds violation. (Word addresses are converted to 
byte addresses by shifting left one bit.) For example, 

LOGICAL LVR; 
BYTE BVR; 

LOGICAL POINTER LPT; 
BYTE POINTER BPT; 

«CORRECT OPERATIONS» 



@LPT 
@BPT 
@LPT 



= @LVR; «address of LVR stored into LPT» 

= @BVR; «address of BVR stored into BPT» 

= @BVR & ASR(l); «address of BVR converted to word address and 
stored in LPT» 

@BPT := @LVR & ASL(l); «:address of LVR converted to byte address and 

stored in BPT» 

«INCORRECT OPERATIONS» 

@LPT := @BVR; «byte address stored in word pointer» 

@BPT := @LVR; «word address stored in byte pointer» 
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MOVE STATEMENTS 

The SPL/3000 MOVE statements provide high-level access to the hardware move-group instruc- 
tions: 

MOVE (move words) 

MVB (move bytes) 

MVBW (move bytes while alphabetic and/or numeric, with/without upshifting) 

The MOVE statements allow the programmer to move data from one location to another within 
his program. The statements require a specific destination (array or pointer), a source (array, 
pointer, or constants), and a count or move condition to determine the quantity of data trans- 
ferred. This information is placed in the stack before the move instruction executes. During the 
data transfer operation the count and addresses are repeatedly modified by the move instruction; 
at the end of the operation they reflect the status of the completed transfer. All temporary 
values associated with the move are deleted from the stack at the end of the operation unless the 
optional stack decrement operand is used to specify otherwise. 



MOVE WORDS STATEMENT 

This statement moves a specified number of contiguous words from a source location to a 
destination location. The format is 



MOVE 



non-byte array (index) 
non-byte pointer (index) 
destination 



non-byte array (index) 
non-byte pointer (index) 
source 



,(count), sdec; 



non-byte pointer (index) is a reference through a pointer of any type other than byte 

(logical, integer, real, long, or double); (index) is optional. 
If no index is present, transfer starts with the data value in- 
dicated by the pointer. 

non-byte array (index) is a reference to an array element of any non-byte type. If 

(index) is absent, the transfer starts with the zero element of 
the array. 

sdec is the optional stack decrement operand; it determines the 
number of words to delete from the stack after moving data: 

sdec = 0, leave destination address, source address, and count. 

sdec = 1, leave destination address and source address. 

sdec = 2, leave destination address only. 

default (blank) = 3, delete all values, leave none. 

count is an integer number of words to be moved (count > means 
move from left to right, count < means move from right to 
left, and count = means move no words at all). 
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Left-Right versus Right-Left Move 

The difference between a left-right move (count > 0) and a right-left move (count < 0) is shown 
in the following diagrams: 

Left to Right (count = +4); 



Low 
addresses 



Source 



I 



fflb 



n-n 



Destination 



High 
addresses 



Right to Left (count = -4): 



Low 



addresses t ▼ 
I I I I 



Destination 



LJIl 



Source 



High 
addresses 



Stack Decrement Operand 

The MOVE (words) statement causes three temporary values to be loaded onto the stack before 
executing the MOVE instruction: 



S-2 
S-1 
S-0 



destination address 
source address 
word count 



After the move operation is complete, destination and source address point to the next word 
(not moved or overlayed) and can be examined, stored, or left in the stack for use by a sub- 
sequent MOVE or SCAN statement. The sdec operand is then used to delete 0, 1, 2, or all 3 
of the parameters from on the stack. A blank sdec field generates an automatic sdec of 3— 
delete all three values from the stack. Count always equals and can safely be deleted 
(sdec = 1), The sdec mechanism is used for all move-scan statements. The temporary values 
left on the stack appear as follows: 





if sdec = 


destination 

source 

count 

destination 


S-1 
S-0 

S-0 


if sdec = 1 




S-2 






S-1 






destination 


S-0 







source 




if sdec = 2 


if sdec = 3 




S-0 
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The parameters left on the top of the stack can be saved in the following way (assume sdec - 0): 
COUNT := TOS; 



©SOURCE := TOS; 
©DESTINATION := TOS; 



«rOS IS A RESERVED WORD THAT MEANS» 
«TOP OF STACK» 

«ADDRESSES CAN BE SAVED IN POINTER» 
«VARIABLES. THIS ENABLES» 

«THE PROGRAMMER TO REFERENCE» 
«rHE DATA ITEMS LATER » 



TOS is a reserved word that always refers to the current top of stack (the data at location S - 0). 
Use of TOS in the example statements above causes the values to be popped off the stack, (S 
is decremented) and stored in the locations specified: 



(Stack before) 



COUNT := TOS; 



©SOURCE := TOS; 



©DESTINATION := TOS; 



s- 


-2 
-1 
-0 

-1 
-0 

-0 

-0 




destination address 


s- 




source address 


s- 





count 




(Stack before) 




s- 




destination address 


s- 




source address 




(Stack before) 




s- 




destination address 




(Stack after) 




s- 







Instead of saving these temporary values it is possible to reuse them in a subsequent move 
operation by leaving them on the stack and specifying asterisk (*) in place of the appropriate 
part of the MOVE (words) statement. For example, 

MOVE DATA (4) := DATAB (4), (4), 2; «Moves 4 words, leaves only the» 

«destination address on stack.» 

MOVE * := DATAC(3), (6); «Moves 6 words from DAT AC into DATA» 

«starting where previous move left off .» 



Variations on Move Words 

There are additional variations on MOVE (words) which are described in the Systems Pro- 
gramming Language manual. One variation allows moving a Hst of constants into an array 
or to a location specified by a pointer. The format is 
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MOVE destination := { ^^^^f \ sdec ; 

I (number list) ( 



string can be any string constant. 

number list is a list of numerical constants with optional repeat factors 
(described under initialization of arrays in Section IV). 

sdec and destination are the same as in the MOVE (words) statement discussed previously. 

There is no count field in this variation because the constant list imphcitly specifies the count 
to be used. The compiler stores the constants required by this statement in the code generated 
for the program. This statement is very useful for dynamic initiahzation of arrays: 

MOVE DBUF := (5(0,1,2,3,4),10,20,99); 
MOVE * := (10(0,1,2,3,4)),!; 

Examples of MOVE (words) Statements 

LOGICAL ARRAY DBUF(0:100),CBUF(0:100); 
LOGICAL POINTER DMARK; 
INTEGER WCOUNT; 



MOVE DBUF(WCOUNT/10) := "$123.45",2; «LEAVE DESTINATION» 
@DMARK := TOS; «SAVE DESTINATION ADDRESS» 

DBUF := 0; «PUT IN ZERO ELEMENT OF DBUF» 

MOVE DBUF(l) :=DBUF,(WCOUNT),2; «ZERO DBUF;LEAVE DESTINATION» 
MOVE * := (1,3,4,7,9,11,23); «USE STACKED DESTINATION ADDRESS» 

MOVE CBUF := DBUF,(101); 

MOVE BYTES STATEMENT 

Moving bytes is very similar to moving words— with two exceptions: the destination/source 
addresses are byte addresses and the count is a number of bytes, not a number of words. There 
are two formats: 



byte array (index) 
MOVE i byte pointer (index) 






byte array (index) 

byte pointer (index) ) , (count) , sdec ; 



destination source 
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MOVE 



byte array (index) 
byte pointer (index) 



"string" 
(number list) 



, sdec ; 



(index) is optional where shown, 

* means the address is already stacked, 

(count) is the number of bytes to move (positive means a left-to-right move; negative 
means a right-to-left move; means no move), 

sdec (stack decrement operand) is the same as that discussed with move words. 

When constants are used as the source operand they are moved into the destination one byte 
at a time. With a string constant, one character is moved to each destination byte from the 
source string. With a number list, the rightmost (least significant) 8 bits of each source 
number are moved into each destination byte. With these exceptions, the MOVE (bytes) 
statement works the same way as the MOVE (words) statement (in terms of stacked values, 
count sign, sdec, etc.). For example, 

BYTE ARRAY HERE(0:8), 

THERE(3:13); 

MOVE THERE(13) := HERE(6), (-5); 

HERE 






1 


2 


3 


4 


5 


6 


7 


8 




A 


B 


C 


D 


E 


F 


G 


H 


I 


' ^l^-^- 


X 


X 


X 


X 


X 


X 


C 


D 


E 


F 


G 



THERE 3 



9 10 11 12 13 



MOVE BYTES WHILE STATEMENT 

The MOVE (bytes) WHILE statement moves bytes from one location to another as long as the 
character being moved is of a specified type (alphabetic and/or numeric). Also, lowercase 
alphabetic characters can be upshifted as they are moved. The format is 



MOVE 



byte array (index) 
byte pointer (index) 



byte array (index) 
byte pointer (index) 



WHILE cond, sdec ; 



destination source 

(index) is optional where shown, 

* means a stacked address, 

cond specifies the conditions for continuing the move: 
A Move while character is alphabetic 
AN Move while character is alphabetic or numeric 
AS Move while character is alphabetic and upshift lowercase 
N Move while character is numeric 
ANS Move while character is alphabetic (upshift lowercase) or numeric 

sdec is the stack decrement operand; in MOVE (bytes) WHILE there are only two 
values loaded onto the stack (source and destination addresses; no count— the 
test condition is a part of the physical MVBW instruction). The default value 
is sdec = 2 or delete both values. 
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After the characters have been moved and a stop condition has occurred, the source and destin- 
ation addresses point to the next character not moved in the source and destination buffers. It 
is essential to save at least the destination address, since this is the only way the programmer 
can determine the number of characters actually moved. The mechanism for saving these values 
is the same as with MOVE (words) and MOVE (bytes), except that there are only two of them: 





if sdec = 


S-1 




S-0 





Assume that sdec = : 



if sdec = 1 



if sdec = 2 



destination 

source S-0 



destination S-0 



©SOURCE := TOS; 



(Stack before) 



©DESTINATION := TOS; 



S-1 




s-0 






(Stack before) 


s-0 






(Stack after) 


s-0 





destination address 
source address 



destination address 



Condition Codes on MOVE (bytes) WHILE 

At the termination of a MOVE (bytes) WHILE statement the condition code is set to show 
the type of the last character examined (but not moved): 

SPECIAL = CCL (<) 
ALPHA = CCE (=) 
NUMERIC = CCG(>) 

These conditions can be checked using an IF statement. 

IF < THEN ELSE ; 



Examples of MOVE (bytes) WHILE 

«Exaniple One» 

BYTE ARRAY SORC(0:8) := "A1QRT5*B4"; 
BYTE ARRAY DEST(0:11) := 12("X"); 
MOVE BEST := SORC WHILE AN; 
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SORC 



012345678 



BEST 



A 


1 


Q 


R 


T 


5 


* 


B 


4 




1 — 


move terminates on special character 
■ 1 


* 


A 




1 


Q 


R 


T 


5 


X 


X 


X 


X 


X 


X 





012 34567 89 10 11 



«Example Two» 

BYTE ARRAY STMT (0:79), WORD (0:79); 

BYTE POINTER SORCPTR, DESTPTR; 

LABEL FIXNUMBER, FIXSPECIAL; 

MOVE WORD := STMT WHILE A,0; 

@SOURCPTR := TOS; «SAVE SOURCE ADDRESS» 

©DESTPTR := TOS; «SAVE DESTINATION ADDRESS» 

IF > THEN GO TO FIXNUMBER «CHECK TYPE OF TERMINATING 

CHARACTER» 

ELSE GOTO FIXSPECIAL; 



FIXNUMBER: 



FIXSPECIAL: 



EXAMPLE 5-1. SYMBOL TYPE SORTER 

This program first fills a buffer with characters from the terminal. Then numeric and alphabetic 
fields are moved to separate buffers with upshifting of all lowercase alphabetic characters. When 
the program finds a special character, it stops processing the input string buffer, outputs the two 
print buffers and terminates. This illustrates the MOVE (bytes) WHILE statement (with/without 
upshifting), pointers, and use of @ to specify addresses. 

Input/Output 

INPUT AN ASCII STRING 

ABCDEFGHIJKLMNOPQRSTUVWXYZ0 1 23 4567890 !"#$%**()ASDFGHJ 123 4567 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

01234567890 

INPUT AN ASCII STRING 

ABCDEF123GHIJKL456MNOPQRS789TUVWXYZ0 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

1234567890 
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INPUT AN ASCII STRING 
126CRANKSHAFT0014932# 
CRANKSHAFT 
1260014932 



Listing 

BEGIN <<EXAMPLE 5-1, SYMBOL TYPE SORTER>> 
COMMENT: 

THE PROGRAM INPUTS AN ASCII DATA RECORD (LENGTH <= 72 
CHARACTERS). ALPHABETIC AND NUMERIC CHARACTERS ARE MOVED 
TO SEPARATE BUFFERS FOR OUTPUT. (ALL LOWER CASE ALPHABETIC 
CHARACTERS ARE UPSHIFTED AND MOVED.) WHEN A SPECIAL 
CHARACTER IS FOUND, PROCESSING STOPS AND BOTH BUFFERS ARE 

OUTPUT. urrcn;:, Hnc 

NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/3000- 
BYTE ARRAY REQST(0:20) : ="I NPUT AN ASCII STRING"; brL/6^^0, 

BYTE ARRAY DATA (0: 72) : = 73 (% 1 5 ) ; 
BYTE ARRAY ALPHADATA(0: 72) : = 73 (" "); 
BYTE ARRAY NUMBRDATA (0: 72) : = 75 (" "); 
BYTE POINTER DPNTR: =@DATA , 

APNTR:=@ALPHADATA, 
NPNTR::@NUMBRDATA; 
LABEL SCANR; 
«END OF DECLARATIONS>> 

OUTPUT(REQST); <<REQUEST RECORD INPUT>> 
INPUT(DATA); «READ RECORD» 

SCANR: MOVE APNTR:=DPNTR WHILE AS,0; «MOVE ALPHABETIC- UPSHIFT>> 

©DPNTR: =TOS; 
@APNTR;::TOS; 

MOVE NPNTR:=DPNTR WHILE N,0; <<MOVE NUMERIC» 

@DPNTR:=TOS; 

@NPNTR:=TOS; 

IF = THEN GOTO SCANR; <<LaST CHARACTER ALPHABETIC>> 
OUTPUT(ALPHADATA); «PRINT ALPHA STRING» 
OUTPUT(NUMBRDATA); «PRINT NUMBER STRING» 
END <<SYMBOL TYPE SORTER>>. 



SCAN STATEMENTS 

The purpose of a SCAN statement is to examine a contiguous string of bytes while looking for 
a specified character without actually moving any data. When the statement ends, pointers and 
indicators are left to show what was found and where. In SPL/3000 there are two SCAN 
statements: 

SCAN Until Statement (SCU Instruction) 
SCAN While Statement (SCW Instruction) 
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SCAN UNTIL STATEMENT 

The SCAN UNTIL statement scans a string of contiguous bytes from left-to-right until a test 
character or a terminal character is found. The format is 

(byte array (index) \ 
byte pointer (index) ) UNTIL testword , sdec ; 



(index) is optional. 

* means the data address is already stacked. 

testword is a constant, variable (integer, logical), or "char char" that determines the 
test conditions and is interpreted as follows: 



terminal character 



test character 







7 8 



15 



sdec is the stack decrement operand and operates as in move statements (the default 
is sdec = 2 since there are two temporary values used in this statement). 

When the scan operation completes, the carry bit of the status register reflects the terminating 
conditions. CARRY indicates that the terminal character was found by the scan. NOCARRY 
indicates that the test character was found. This can easily be tested with an IF statement: 

IF CARRY THEN ELSE ; 

IF NOCARRY THEN ELSE ; 



CAUTION: Any arithmetic operation done between the scan and the testing of 
CARR Y can change the setting of CARR Y. 

The stack decrement operand determines what values are left on the stack. Note that the scan 
operation updates the byte address to point to the byte that met the condition but does not 
change the testword. 





if sdec = 


S-0 


if sdec = 1 


S-0 


if sdec = 2 


S-1 


byte addr. 


S-0 


testword 


byte addr. 





Sample SCAN UNTIL Operation 

BYTE POINTER PTR; 

BYTE ARRAY CHAR (0:30) := "AAAAAAAAAAAAAOAAAAAAAAAAAAAAAA"; 

SCAN CHAR UNTIL "Z0",1; 
@PTR := TOS; 



5-17 



steps in Operation: 

1. The source byte address and the testword are 
loaded onto the stack. 

2. The SCU instructions tests the source bytes and 
increments the byte address. 

3. When a match is found the stacked address points 
to the matching byte. 

4. CARRY is set if the terminal character is found, 
NO CARRY if the test character is found. 

5. The testword is popped off (sdec = 1) but the 
address of the matching byte is left. 

6. The address of the match is popped off and stored 
in PTR. 



S^ 



S^ 



S^ 



s^ 



byte address 







addr. of match-char 







address of match 



Another Sample of SCAN UNTIL 

BYTE ARRAY INPUT (0:79); 

LOGICAL DOT'DOLLAR := %27044; « .$» 

LABEL PROCS; 

SCAN INPUT UNTIL DOT'DOLLAR, 1 ; «SCAN FOR PERIOD OR $» 
IF CARRY THEN GOTO PROCS; «PERIOD (.) FOUND, PROCESS IT» 

SCAN * UNTIL ".X"; «START SCAN ON $ AND LOOK» 

«FOR X OR PERIOD» 

PROCS: 



SCAN WHILE STATEMENT 

This variation of the SCAN statement examines a string of bytes as long as all the characters 
found match the test character. The scan is terminated when a character which does not 
match the test character is found or when the terminal character is found. The format is 



SCAN 



hyte pointer {index) 
byte array (index) 



WHILE testword, sdec ; 



testword is a one-word variable or constant and has this format: 
terminal character . test character 



L 



± 



7 8 

sdec is as before (default is 2 to pop 2 values.) 



15 



The operation of SCAN WHILE is similar to that of SCAN UNTIL. The parameters are located 
on the stack. Upon completion, the byte address points to the first byte that does not match; 
CARRY is set if the terminal character was found; the condition code is set to indicate the 
type of the unmatching character: 
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special (CCL,<) 

alphabetic (CCE,=) 

numeric (CCG,>) 

In order to determine how many characters were scanned or where the scan stopped, it is 
necessary to retain the byte address on the stack (sdec = or 1). 



Sample SCAN WHILE 

«Example One» 

BYTE POINTER PTR; 
BYTE ARRAY CHARS: 
SCAN CHARS WHILE ".0",1; 
@CPTR := TOS; 



«SCAN WHILE OR UNTIL PERIOD IS FOUND» 
«SAVE MISMATCH ADDRESS» 



«ExampleTwo» 

BYTE ARRAY BUFR (0:100); 

BYTE POINTER BPNTR := @BUFR; 

LOGICAL CRBLNK := %6440; «CARRIAGE RETURN, BLANK» 

LABEL LINEEND; 

@BPNTR := @BUFR(3); 

SCAN BPNTR(2)WHILE CRBLNK,!; «SCAN UNTIL FIRST NON-BLANK OR CR» 
IF CARRY THEN GOTO LINEEND; «CHECK FOR CARRIAGE RETURN» 
@BPNTR := TOS; «SAVE ADDRESS OF NON-BLANK CHARACTER» 



LINEEND: 



TESTING BYTES AND STRINGS 

In an SPL/3000 logical expression it is possible to compare two strings of bytes to determme 
if a relation between them is true or false. The instruction actually used is the Compare Bytes 
instruction (CMPB) and the format is very similar to MOVE and SCAN. The byte strmgs are 
compared, one character at a time, at their numeric values. The format is 



byte array (index) 
byte pointer (index) 
* 



STRING ONE 



re lop 



byte array (index), (count) 
byte pointer (index), (count) 
*, (count) 
"'string" 
(number list) 

STRING TWO 



sdec 
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Where all parameters are as described for moves and scans (stack contains address of string one, 
address of string two, and count). The default for sdec is 3 (pop all three temporary values), 
and relop specifies a relation between string one and string two (=, <> (not equal), >, >=, <='). 

The bytes of the two strings are compared one at a time until a comparison fails or the count 
reaches 0. The result of a comparison is a TRUE value if the strings match when the count 
reaches 0; otherwise, the result is FALSE. At the end of a byte comparison the addresses point 
to the first pair of characters that do not meet the comparison. These addresses can be saved 
using sdec, but this is only feasible if the addresses are not destroyed by something else done in 
the logical expression. 

IF TARGET = "BOB SMITH",0 THEN NUM'CHARS := 0; 

ELSE BEGIN NUM'CHARS := TOS; «COUNT IN S - 0» 

TEMPI - TOS; «ADDRESS OF STRING TWO» 

TEMP2 := TOS; «ADDRESS OF STRING ONE» 

END; 

Another construction allows testing single bytes in logical expressions to determine whether 
they are of a particular type. The format is 

{ byte array (index) ) ( ^ ] [ALPHA \ 
I byte pointer (index) \ {^^\ I NUMERIC ) 
[ byte variable ) I j ( SPECIAL ) 

means "is type," 
< > means "is not type . " 
ALPHA means character is an upper and lower case letter (A to Z and a to z). 
NUMERIC means character is a digit (0 through 9). 
SPECIAL means character is any other character. 

The result of a byte test is a TRUE or FALSE. 

For example, 

BYTE CHAR; 

IF CHAR = ALPHA THEN 

ELSE ; 



EXAMPLE 5-2. MARK DELIMITER CHARACTERS 

This program illustrates the use of the SCAN and MOVE statements. The user inputs a single 
character to be used as a delimiter. The user then inputs a character string to be tested; the 
program scans the test string and marks each occurrence of the dehmiter character with a 
marker character (I) below it. 

The MOVE statement is used to initialize buffers only; two methods of setting up a MOVE are 
shown — one using byte data labels and the other using pointers. 
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Input/Output 

INPUT A DELIMITER CHARACTER 

INPUT A CHARACTER STRING 

12345 67890*ABCDEF***!"#S%&' () r<>?*@+, ./7GHIJKLMN0**PQRSTUV**ZXC ******** 
I III I II II IIIIIIII 

INPUT A DELIMITER CHARACTER 

E 

INPUT A CHARACTER STRING 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID OF THE PARTYI 
II III I 



Listing 

BEGIN <<EXAMPLE 5-2. MARK DELIMITER CHARaCTERS>> 

COMMENT: 

THIS PROGRAM MARKS THE APPEARANCE OF A DELIMITER CHARACTER 

WITHIN A SOURCE ASCII STRING. 

NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 

INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/5000; 
INTEGER CHARPTRrS, 

TESTWORD:=0; 
BYTE ARRAY STRI NG (0: 71) : ="I NPUT A DELIMITER CHARACTER "; 
BYTE ARRAY MARKER (0: 71 ) :="I NPUT A CHARACTER STRING"; 
BYTE POINTER STRI NGADR: =@STRI NG , «(STRI NGADR ) ^ADDRESS OF STRING» 
MARKERADR:=@MARKER, <<(MARKEHADR) ^ADDRESS OF MARKER>> 
MARKPOINT; 

LABEL LOOP; 

OUTPUT(STRING); <<PRINT DELIMITER REQUEST>> 
INPUT(STRING); <<INPUT DELIMITER CHARACTER>> 
TESTW0RD.(8:8):=STRING; <<NULL ,TESTCHARACTER>> 
STRING:=0; <<ZEHO STRING BUFFER>> 
MOVE STRINGCl) := STRING, (71); 
OUTPUTCMARKER); <<PRINT STRING REQUEST» 
INPUT(STRING); <<INPUT TEST STRING>> 
MARKERADR:=" "; <<BLANK MARKER BUFFER>> 
MOVE MARKERADR(l) := MARKERADR, ( 71 ) ; 
TOS::@STRINGADR; <<SET UP STACK FOR SCAN>> 

LOOP: 

SCAN * UNTIL TESTWORD,!; <<SCAN FOR D£LIMITER>> 

<<NULL CHARACTER TERMINATES>> 
IF NOCARRY THEN <<D£L1MITER FOUND>> 

BEGIN <<COMPUTE MARKER ADDRESS>> 

@MARKPOINT:=@MARKERADR+(CHARPTR-@STRINGADR); 
MARKPOINT:="I"; <<PUT MARKER IN 3UFF£R>> 
CHARPTR:=CHARPTR+1; <<BUMP STRING ADDRESS>> 
GOTO LOOP; 
END; 
DEL; <<DELETE STRING ADDRESS» 
OUTPUTCMARKER); <<OUTPUT MARK£RS>> 
END <<CHARACT£R MARK£R>>. 
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EXERCISES FOR SECTION V 



1. Identify the invalid BYTE declarations. 

a) BYTE A :=%101; 

b) BYTE ARRAY ASCIIBUF (0:3) := "AB", -1, "Z"; 

c) BYTE CHARS := "AB"; 

d) BYTE ARRAY STRl (0:3) := "ABCD", STR2 (0:3) := "EFGH"; 

e) BYTE BIGNO := 12.34; 

f) BYTE FLAG := TRUE; 

g) BYTE ARRAY COMPOSITE (0:5) := 100, "A", %14, "234"; 
h) BYTE ONE := "1", TWO := "2"; 

i) BYTE ARRAY BIGSTRING (0:9) := "**** ERROR NUMBER ****"; 
j) BYTE W, X, Y, Z, LAMBDA := "L"; 

2. Describe the results of the three assignment statements by filling in the tables provided. 

BYTE ARRAY ASCII (0:3) := "ABCD"; 
BYTE ARRAY NULL (0:3) := 4(0); 
LOGICAL WORD := 0; 
WORD := ASCII; 
NULL := ASCII; 
TOS := ASCII; 



WORD 



ARRAY NULL 



TOS 



3. Write the SPL/3000 statements to concatenate bytes A and B and place the result in 

78 15 
WORD, such that WORD = 



B 



BYTE A := "A", B := "B"; 
LOGICAL WORD; 

4. How many words of storage does this declaration allocate? 

INTEGER INDEX = X; 

5. For each of the octal byte addresses below, convert the address to a word address and then 
back to a byte address. Is the result always the same as the original byte address? 
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Byte Address 


Word Address 


Final Byte Address 


Address 1 


%1023 






Address 2 


%1460 






Address 3 


%2577 







Hint: A byte address is converted to a word address by dividing by 2; a word address is 
converted to a byte address by multiplying by 2, 

6. How many words of storage are allocated for these pointer declarations? 

a) BYTE POINTER INBUF := @ ASCIIBUF; 

b) REAL POINTER DECNO; 

c) INTEGER POINTER FIXIT; 

d) LOGICAL POINTER STICK := @ TABLE; 

e) LOGICAL POINTER INDEX = X; 

7. Which of the following constants will fit into a single byte (8 bits) without truncation? 

a) -1 

b) "-1" 

c) %377 

d) 27.3E-6 

e) "$" 

8. Evaluate the following statements and compute the result stored in TOTAL. 

INTEGER TOTAL, FIXNO := -1; 
BYTE A := 37, B := 144, C := 3; 

TOTAL := (A + BYTE (FIXNO) + B) * C; 

9. Assume this declaration : 

INTEGER ARRAY SAM (1:10) := 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 

Declare an integer pointer IPNTR that points to the first element of array SAM. 

10. Assume these declarations: 

INTEGER ARRAY NUMBER (0:9) := 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 
INTEGER POINTER NPNTR := @ NUMBER; 

What is the result of executing each of these statements? 

a) NPNTR := NPNTR + 1; 

b) NPNTR(l) := NPNTR(2) + NPNTR(3) + NPNTR(4) + NPNTR(5); 

c) @NPNTR := @NPNTR + 7; 

d) @NPNTR := ©NUMBER; 

e) NPNTR := @NUMBER(9); 
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11. Write SPL/3000 statements to fill each word of an integer array BUFF with a binary 

pattern of alternating 1 and bits (e.g., 101010 ). Use a MOVE statement to 

solve the problem. 

Assume: 

INTEGER ARRAY BUFF (0:99); 

12. Examine the MOVE statement and data declarations shown below. Supply the appropriate 
stack decrement operand for the MOVE statement, and write the additional statements 
required to save the final source address in INPNTR and the final destination address in 
OUTPNTR. 

LOGICAL ARRAY INBUF (0:1000), 

OUTBUF (0:1000); 
LOGICAL POINTER INPNTR, OUTPNTR; 

MOVE OUTBUF := INBUF, (128), sdec; 

13. Write a statement to move characters from SOURCEBUF to DESTBUF until a non- 
alphabetic character is found. Use an additional statement to make certain that 
SOURCEBUF contains a non-alphabetic character before the move by storing an asterisk 
(*) into the buffer as the last character. 

Assume : 

BYTE ARRAY SOURCEBUF (0:80), 
DESTBUF (0:80); 

14. Rewrite the solution to exercise 13. After the move has completed, compute the number 
of characters actually moved, and store the value in an integer variable (COUNT). Deter- 
mine the type of character which terminated the move. Set a logical variable (NUMBER) 
to true if the character was numeric, otherwise set it to false. 

Assume : 

BYTE ARRAY SOURCEBUF (0:80), 

DESTBUF (0:80); 
INTEGER COUNT; 
LOGICAL NUMBER; 

15. Assume a byte array STRING starts at DB + %1000 (byte address) and contains the following: 

l^l^l^|P|^|FiQ|H|I|- 

t 

DB + 1000 

For the execution of this SCAN statement 

SCAN STRING UNTIL ".E", 0; 
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the stack contains 



S-1 
S-0 



%1000 



.E 



(DB relative byte address) 



How does the stack appear after the execution of the SCAN statement? 

16. Write a statement to determine whether the content of byte array DATA is the string "END 
OF INPUT". If that is the content, set the logical variable FLAG to true. 

Assume : 

BYTE ARRAY DATA (0:11); 
LOGICAL FLAG := FALSE; 
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SECTION VI 
Procedures and Subroutines 



This section discusses two types of SPL/3000 subprogram units: procedures and subroutines. The 
PCAL and SCAL machine instructions provide entry to procedures and subroutines, respectively; 
EXIT and SXIT provide for returning to the point of the call. 



PROCEDURES 

A procedure in SPL/3000 has all the attributes of a conventional subroutine, but is much more 
powerful. Functionally, a procedure is a contiguous block of machine instructions which is 
called (with parameters) to perform a specific function. The power and importance of pro- 
cedures in the HP 3000 cannot be overstressed. They are the organizational principles behind 
code, data and system control: 

• Saving /Restoring Environment 

The calling environment is saved in the stack when a procedure is called and restored 
when a procedure exits. 

• Local variables 

Each procedure called has a unique Q register setting when it executes. This makes it 
possible to allocate and address local data variables in the Q+ area of the stack. 

• Dynamic Temporary storage 

The Q register is given a fresh setting whenever a procedure is entered and reset when 
the procedure exits. 

• Segmentation 

Code segments consist of one or more procedures. The Procedure Call instruction 
allows control to be transferred from segment to segment. 

• Virtual Memory 

The Procedure Call instruction automatically causes an absence trap if the requested 
procedure is in a segment that is not present in main memory (the operating system 
then makes the segment present). If the segment is already present, the instruction 
directly transfers to the procedure. This provides a virtual memory for code. 
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• Code Sharing 

Since code cannot be modified, it is re-entrant and can be shared (used by several 
processes concurrently). All procedures are referenced through a system-defined code 
segment table. Thus all users can concurrently access the same copy of a common 
procedure (such as the sine or cosine function). 

• System Control 

The functions of the operating system are provided by procedures called Intrinsics. A 
privileged mode bit and an uncallable bit are examined by the PCAL and EXIT instruc- 
tions to restrict access to these Intrinsics. 



Attributes of a Procedure 

Each procedure can have many different attributes. Some of the most common are 

• Type 

If a procedure is typed, it returns a value of a specified type (integer, real, etc.) in place 
of its name (in an expression). 

• Parameters 

Variables, arrays, constants, labels, pointers, and other procedures can be passed to a 
procedure as parameters. For each parameter, either a copy of the parameter value or 
the address of the parameter is passed to the procedure in the Q- area of the stack. 

• Local Variables 

Procedures can declare local variables that are known only within the procedure and are 
allocated space in the Q+ area when the procedure is called. Thus, they occupy space 
only when a procedure call is active. All items that can be declared in the main program 
(except for procedures) can also be declared within procedures. Another type of data 
construct — the own variable — is known only within a procedure, but is allocated in the 
DB area and thus has a value throughout the Hfe of a process. 

• Main Body 

The main body (or code) of a procedure can consist of any sequence of statements, 
including calls to procedures. Recursion — ^ocedures calling themselves — is allowed. 

A Typical Procedure 

Suppose we have a procedure named BLANKBUF whose purpose will be to fill a buffer farrav) 
with ASCII blanks. 

• What data does BLANKBUF need? 

The address of the buffer to be filled and the number of words to blank, minus one. 

• What data must BLANKBUF return? 
Only the filled buffer. 
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• How would a call to BLANKBUF look? 
BLANKBUF (ARRAY , 30) ; 

Procedure Buffer Number 
name address of words 

• How would these two parameters be received? 

They are loaded onto the stack before the call to BLANKBUF. An address is loaded for 
the buffer and a constant is loaded for the number of words. 

• How does BLANKBUF know about its parameters? 

All of the parameters of a procedure are defined when the procedure is declared. 
Following is part of the declaration of BLANKBUF: 

PROCEDURE BLANKBUF (BUFFER, COUNT); 

VALUE COUNT; 

LOGICAL ARRAY BUFFER; 

INTEGER COUNT; 

BUFFER and COUNT are called formal parameters. When the procedure is called, each 
formal parameter must be matched by an actual parameter compatible with the type 
specified for a formal parameter. Above, the address of a logical array is expected in 
place of BUFFER and an integer constant value is expected in place of COUNT. 

• Where does BLANKBUF get the blank characters to use for filling the buffer? 

BLANKBUF declares a local variable (BLANKWORD) which is initialized with two 
blanks. This follows the specification of parameters: 

PROCEDURE BLANKBUF (BUFFER, COUNT); 
VALUE COUNT; 
LOGICAL ARRAY BUFFER; 
INTEGER COUNT; 
BEGIN 

LOGICAL BLANKWORD := %20040; 

• How does BLANKBUF perform the blank fill? 

The statements to perform the function of the procedure follow the local variable 
declarations. The procedure declaration is terminated by an END;. Here is the com- 
plete declaration of BLANKBUF: 

PROCEDURE BLANKBUF (BUFFER, COUNT); 

VALUE COUNT; LOGICAL ARRAY BUFFER; 

INTEGER COUNT; 

BEGIN 

LOGICAL BLANKWORD := %20040; «blank, blank» 

BUFFER := BLANKWORD; 

MOVE BUFFER (1) := BUFFER, (COUNT-1); 
END «END BLANKBUF»; 
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Declaring Procedures 

As was seen in the BLANKBUF example, a procedure must be declared in order to specify ex- 
actly what it is to do and what local variables it needs. The parameters must be specified in 
sufficient detail to enable the compiler to generate proper code for calls upon the procedure. 

The declaration of procedures occurs in the declaration part of a main program, after all the 
data declarations. (Procedures cannot be declared locally— within other procedures.) A pro- 
cedure declaration has two parts: a head and a body. 

Elements of the procedure head, in required order of appearance: 

Syntactic Element Explanation 



type 



PROCEDURE name 



formal parameters 



value part 



specification part 



option part 



If a procedure is typed, it is a function procedure and returns a value 
of the specified type (byte, integer, logical, real, double, long). Func- 
tions are discussed later in this section. 

The name is the name which is used to call the procedure; it can be any 
valid identifier. 

The formal parameters are dummy identifiers separated by commas 
and enclosed in parentheses. These identifiers have meaning only with- 
in the procedure (they may duplicate global identifiers) and assume 
the values of the actual (calling) parameters when the procedure is 
invoked. A semi-colon must follow the rightmost parenthesis. 

Parameters can be passed either by value or by reference. Those to be 
passed by value must appear in a list after the word VALUE. When a 
parameter is called by value, a copy of the actual parameter value is 
loaded into the stack. This location can be accessed by the procedure 
with Q minus addressing. Although the local copy of the value can be 
changed, the contents of the original actual parameter remain unchanged. 
When a parameter is passed by reference (the default case), the address 
of the parameter is loaded onto the stack and the procedure references 
the data indirectly through it. This means that the procedure can 
modify the original contents of the actual parameter. 

The specification part must include the type of every formal parameter 
(including those called by value). Variables, arrays, pointers, labels, and 
procedure names can be passed as actual caUing parameters. There is 
no parameter checking with calls to procedures passed as parameters. 
The form of specification is the same as a declaration, except that 
arrays are specified without bounds. (For special considerations in 
specifications, see Systems Programming Language (HP 03000-90002) 

The option part specifies special options of the procedure. The most 
common options are 

OPTION FORWARD; Allows two or more procedures to 

call each other. (See "Recursive 
Procedures.") 

OPTION EXTERNAL; Allows procedures to be compiled 

separately. (See "Intrinsics.") 
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OPTION VARIABLE; Allows procedures to be called with a 

variable number of parameters. (See 
"Intrinsics.") 

All options are described fully in Systems Programming Language. 
Elements of the procedure body : 



BEGIN 
data group 



statements 



END; 



The data group contains any data declarations local to the procedure. 
These declarations are allocated space in the Q+ area of the stack and, 
thus, can only be referenced within this procedure. All of the SPL/3000 
structures can be declared locally except for procedures. A procedure 
can be declared within another procedure only if its procedure body 
(code) is external (OPTION EXTERNAL). Since intrinsics are external 
system procedures they can be declared within procedures. Subroutines 
can be declared in procedures. Local arrays are allocated Q+ locations 
and are addressed indirectly through a Q+ data label; they cannot be 
initiahzed since the space for them is not allocated until the procedure 
is called. Note that calling parameters can be used in declarations (for 
example, to specify variable bounds for an array; see Section VII). 
The following example shows what space would be allocated on the 
stack when a procedure called RUN is entered: 



Procedure 

PROCEDURE RUN; 
BEGIN 

INTEGER A; 
POINTER P; 
LOGICAL ARRAY LAR(0:4); 



END; 



Stack 



Q-^ 




Q + l 


A 


Q + 2 


P 


Q + 3 


pointer to zero 
element of LAR 


Q + 4 


LAR(O) 




LAR(l) 




LAR(2) 




LAR(3) 


Q + 8 


LAR(4) 



) LAR 



The body of a procedure consists of SPL/3000 statements. These 
statements can reference the formal param.eters, entities declared local 
to this procedure, and all globally declared entities (except subroutines). 
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If we review the first example procedure (BLANKBUF) we can see the parts described above: 

«HEAD» 

«NO TYPE» 

PROCEDURE BLANKBUF «NAME» 

(BUFFER,COUNT) ; «FORMAL PARAMETERS» 
VALUE COUNT ; «VALUE PART» 

LOGICAL ARRAY BUFFER ; «SPECIFICATION PART» 
INTEGER COUNT ; 
«EMPTY OPTION PART» 
«BODY» 
BEGIN 

LOGICAL BLANK WORD := %20040 ; «DATA GROUP» 
BUFFER := BLANKWORD; «STATEMENTS» 
MOVE BUFFER(l) := BUFFER,(COUNT-l); 
END; «END DECLARATION» 

All parts of the procedure head are optional except for PROCEDURE name. The data group is 
an optional part of the body. In addition, if there is no data group (no local declarations) and 
only one statement in the rest of the body, the BEGIN-END pair can be omitted. 

Calling Procedures 

Procedures can be called by the main program, by other procedures, or by themselves. There 
are two methods of calling a procedure. One is in a Procedure Call statement; the other is in 
an expression (typed procedures only). This second use is discussed later in this section under 
"Functions." The Procedure Call statement has the following format: 

name (actual parameter list); 

name is the identifier of the procedure to be called. 

actual parameter list is a list of actual parameters separated by commas that correspond 
(one-to-one) in type with the formal parameters of the procedure. 
VALUE parameters can be constants, identifiers, expressions, or 
assignment statements. Reference parameters can be identifiers 
only, not constants. The compiler generates code to determine 
the value or address of each actual parameter in turn and leave 
them on the stack. 

If there are no parameters, the entire parenthetic unit is omitted. When assignment statements 
are used as parameters, the result of the expression is stored in the variable specified and also 
left on the stack as a parameter. 

It is possible to specify that a parameter has already been placed in the stack by the user. This 
is done by specifying an asterisk (*) in place of the parameter. Details of this are covered in 
Systems Programming Language. 
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These statements transfer control to the procedure named with the parameters properly loaded 
into the stack. When the called procedure exits (reaches the final END or a RETURN state- 
ment), control returns to the statement following the procedure call statement. For example, 



-►PROCEDURE BLANKBUF 



BLANKBUF (OUTBUF,36); 
0UTBUF(5) := "."; 



BEGIN 



END; 



Procedure Functioning 

Entering and exiting a procedure follows a very machine-dependent sequence in SPL/3000. 
First, the parameters or their addresses are loaded onto the stack in the order they occur in 
the parameter list. Then a PCAL instruction is executed. The PCAL instruction addresses 
through a Segment Transfer Table (in the code segment) and either: 

1. Transfers to the start of a procedure in the current code segment, or 

2. Uses a Segment Transfer Table entry and a Code Segment Table entry to locate the 
code segment which contains the procedure and then transfers control to the start 
of the procedure. (The Code Segment Table is a hardware-referenced, system-wide 
table which is maintained by the operating system.) 

During the execution of the PCAL instruction, a four-word stack marker is placed on the stack 
and the contents of the Q register are changed to point to a fresh area on the top of the stack. 
The stack marker preserves the definition of the environment at the time of the PCAL and has 
the following format: 



Calling 

Parameter 

Storage 

Previous contents of index (X) register 
(restored on exiting). 

PB relative return address. 



Stack Marker 



Stack available for 
local data storage 



Q-5 

Q-4 


• 




Q-3 


X REGISTER 


Q-2 
Q-1 
S,Q 


RELATIVE P 


STATUS 


DELTA Q 


1 





Previous contents of STATUS (restored 
on exiting). 

Value to be subtracted from Q to obtain 
previous Q on exit. 
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The procedure's instructions are executed until an EXIT instruction occurs (generated by final 
END of a procedure or a RETURN statement). EXIT uses the stack marker to return to the 
point of the call and reset the environment. The contents of the Q, P, status, and index registers 
are restored. Parameters can be deleted from the stack or left. 

The following sample program shows how the complete process of calhng and exiting a pro- 
cedure occurs. The lines are numbered so that they can be referred to from the explanation. 
The letters (A, B, C, . . .) mark the chronological path during execution of the program. The 
explanation will follow this path. 



D 



E 
A 

B C 
F 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



BEGIN «SAMPLE PROCEDURE DECLARATION AND CALL» 
«GLOBAL DATA DECLARATION» 
LOGICAL ARRAY DATA (0:128); 
«PROCEDURE DECLARATION» 

PROCEDURE BLANKBUF (BUFFER,COUNT); 
VALUE COUNT; 
LOGICAL ARRAY BUFFER; 
INTEGER COUNT; 
BEGIN 
«LOCAL VARIABLE» 

LOGICAL BLANKWORD := %20040; 
«STATEMENTS» 

BUFFER (0) := BLANKWORD; 
MOVE BUFFER (1) := BUFFER (0), (COUNT-1); 
END; 
«START OF MAIN PROGRAM» 
«INVOKE PROCEDURE» 
BLANKBUF (DATA,128); 
«RETURN FROM PROCEDURE» 
END «END OF PROGRAM». 



Sequence of Execution 

At the start of the main program (line 
16). Note that an artificial stack 
marker is created for the program so 
that at the end of the program it can 
EXIT back to the operating system. 



Address 



Contents 



Meaning 



(DB + eOSg) Q,S 



DB + 


/^ 


400 


Address of 






element of DATA 


DB + 4008 




' 






I DATA 
array elements 




X 






p 


Initial 
■ Stack 
Marker 




STATUS 


Q,S 


DELTA Q 
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Sequence of Execution 

B Before the procedure call, the 

parameters are loaded into the stack: 

400s = address of DATA 

2008 =128io = COUNT 



Address 
DB + 

Q 



Contents 



Meaning 



Q + 1 
(DB + 6078)S,Q + 2 




Stack Marker 

Address of 
element DATA 

Count parameter 
(by VALUE) 



Execution of the PCAL instruction 
(line 18) causes a stack marker to be 
loaded onto the stack and the contents 
of P and Q to be changed. Execution 
now continues with the body of the 
procedure (line 9). The index register 
(X) is not changed; it can be used to 
pass a parameter. 



DB + 



Q-5 
Q-4 
Q-3 



Q-2 
Q-1 
(DB + eiSg) S,Q-0 



/ 



400, 



200, 



X 



STATUS 



DELTA Q = 6 



(Initial Stack 
Marker 

I Calling 
Parameters 



Procedure Call 
Stack Marker 



D Code within the procedure first 
allocates and initializes location 
Q + 1 for the local variable 
(BLANKWORD, line 11). This 
is done by loading a constant from 
the code segment onto the stack. 
The procedure stores a copy of 
BLANKWORD through the array 
parameter (address) in location 
Q-5, sets up the addresses and 
count required by MOVE, and 
executes a MOVE instruction to 
fill the DATA array with blanks. 



DB + 
DB + 400 



Q-5 

Q-4 

Q 
Q + 1 

S-2 
S-1 
S-0 



400, 



blank/blank 



/ 



/ 



400, 



200, 



blank/blank 



401 



400 



199 



) DATA array 



Initial Stack 
Marker 



(Procedure Call 
Stack Marker 

BLANKWORD 

destination 
source 
word count 
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Sequence of Execution Address 

After the MOVE completes, it decre- DB + 
ments the stack by three words. This 
is just before the EXIT. 



(DB + eiSg) Q 

S 



Contents 



; } 



400, 



200, 



X 



STATUS 



DELTA Q 



Meaning 



blank/blank 



(Initial Stack 
Marker 



Parameters 



I Stack Marker 



BLANKWORD 



E At this point, an EXIT from the 
procedure returns control to the 
main program as follows: 



DB + 



DB + 400 



(DB + 6058)S,Q 



400, 



/ 



/ 



) DATA array 

1 Initial Stack 
Marker 



Action 



Effect 



S is moved back to Q 


Procedure data stack deleted. 


Q is decremented by delta Q (Q changed 
from DB + GlSg to DB + GOSg ) 


Re-establish base of calling procedure or 
program stack. 


Reset registers and delete values from stack, 
status register ^ status 
P register ^ P + PB (return addr.) 
index register -^ index 


Previous state of machine registers is restored 
and the stack marker is deleted from the stack. 
(S points to last parameter.) 


Number of parameter words pushed on the 
stack for the call are deleted. (This may be 
overridden to return values in the stack.) 


Calhng program's stack restored to condition 
which existed prior to the procedure call. 



F At this point, an EXIT from the main program through the initial stack marker returns 
control to the operating system. 
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RETURN STATEMENT 



The RETURN statement is used to generate additional EXIT points within the body of a pro- 
cedure. The final END of the procedure also generates an EXIT. The format of a RETURN 
statement is 

RETURN count ; 

count is the number of words by which the stack is to be decremented. If count is not 
specified, the decrement value equals the number of words used to pass the actual 
parameters to the procedure. (Note that count is in addition to the stack marker 
which is always deleted on EXIT.) 

The optional count in RETURN allows the programmer to leave some or all of the calling 
parameters on the stack after exiting. The final END of the procedure declaration does not 
allow this option. A use of RETURN to save parameters is shown in this example: 

«main program» 
NOW(5, 6.7, 92); 
TEMP := TOS; «SAVE PARAMETER» 

PROCEDURE NOW (A, B, C); 
VALUE A, B, C; 
INTEGER A, C; 
REAL B; 
BEGIN 



RETURN 3; 



END; 





Stack on entry 




Q-7 


5 




Q-6 
Q-5 


6.7 


Calling 
Parameters 


Q-4 


92 




Q-3 


Index 


' 


Q-2 


Relative P 




Q-1 


STATUS 


' Stack 
Marker 


S,Q 


Delta Q 






Stack after 
RETURN 3 




S-0 


5 


A 



EXAMPLE 6-1. DATA COMPRESSION 

This program demonstrates the use of a procedure to compress input records by deleting blanks 
and comments. (All comments are enclosed in quotes.) The procedure uses both the MOVE 
(byte) WHILE and SCAN UNTIL statements; the parameters for moving and scanning remain 
in the stack and are modified when necessary. The mam program s uasK is uO mpuw Uxe ^ata, ca^^ 
the procedure, and output the results. 



Input/Output 



ENTER A DATA RECORD 
12 "RECORD NUMBER" 4/15 
124/13W-6475-Q342 
CHARACTER COUNT = 17 



"MONTH/YR" W-S475-Q "ITEM NO" 342 "QUANTITY' 
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ENTER A DATA RECORD 

"TEST NO" 465 "SAMPLE LOT" A-241 "HARDNESS" 8 

465A-2418 

CHARACTER COUNT = 9 

ENTER A DATA RECORD 

"ITEM NUMBER" 347-572-56B "DEVELOPED" 4/17 "MANUFACTURED BY" SaMCO 

347-572-56B4/17SAMC0 

CHARACTER COUNT = 20 

ENTER A DATA RECORD 

"TRANSACTION RECORD" EXCHANGE "ITEM" BICYCLE "PRICE" $56.48 "DATE" 8/23 

EXCHANGEBICYCLE$5 6. 488/23 

CHARACTER COUNT r 25 



Listing 

BEGIN <<EXAMPLE 6-1. DATA C0MPRESS10N» 
COMMENT: 

THIS PROGRAM INPUTS AN ASCII RECORD (MAXIMUM LENGTH 72 
CHARACTERS), CALLS A DATA COMPRESSION PROCEDURE, AND OUTPUTS 
THE PACKED RESULT. 

NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/3k50Z: 
BYTE ARRAY I N( 0: 72) : = 73 (%l 5) ; 
BYTE ARRAY OUTC0: 72 ) : = 73 (" "); 

BYTE ARRAY HEADMSG ( 0: 19) :=" ENTER A DATA RECORD "; 
BYTE ARRAY LABL (0: 1 7) : ="CHARACT£R COUNT = "; 
INTEGER PKD'CNT; 

PROCEDURE COMPRESS(INBUF,OUTBUF, COUNT); 
BYTE ARRAY INBUF, OUTBUF; 
INTEGER COUNT; 
BEGIN 
COMMENT: 

THIS PROCEDURE COMPRESSES INPUT DATA RECORDS BY ELIMINATING 
BLANKS AND ALL COMMENTS ENCLOSED IN QUOTATION MARKS. THE 
INPUT BUFFER CONTAINS A RECORD TERMINATED BY A RETURN. A 
PACKED OUTPUT BUFFER AND A CHARACTER COUNT ARE RETURNED TO THE 
CALLING PROGRAM.; 
BYTE POINTER SCHAR^S, 

DCHAR=S-1; 
LABEL MOVER, 
EXIT; 

TOS;r®OUTBUF; <<SET DESTINATION ADDRESS>> 
TOS::@INBUF; «SET SOURCE ADDRESS>> 
MOVER: MOVE *:=* WHILE AN,0; <<MOVE WHILE NOT SPECIAL>> 

IF SCHAR=%40 THEN <<BLANK>> 
BEGIN 

@SCHAR:=@SCHAR+l; <<SKIP SOURCE BLANK>> 
GOTO MOVER; 
END; 
IF SCHAR=%i5 THEN GOTO EXIT; <<RETURN>> 
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IF SCHAR<>%42 THEN <<NOT " MARK - VALID SPECIAL CHARACTER: 

BEGIN 

DCHAR:=SCHAR; <<MOVE CHARACTER>> 
@DCHAR:=@DCHaR+1; <<INCR DESTI NATI0N>> 
@SCHAR;=@SCHAR+1; <<INCR SOURCE» 
GOTO MOVER; 
END; 
@SCHAR::@SCHAR+1; <<SKIP OPENING SOURCE " » 
SCAN * UNTIL 7.6442,1; <<SCAN FOR NEXT SOURCE " >> 

IF NOCARRY THEN <<QUUTE MARK FOUND>> 
BEGIN 

@SCHAR:=@SCHAR+1; «SKIP CLOSING SOURCE " 
GOTO MOVER; 
END; 
EXIT: COUNT: =@DCHAR-@OUTBUF; «COMPUTE CHARACTER COUNT>> 

END <<COMPRESS>>; 

<<END OF DECLARATIONS>> 

OUTPUT(HEADMSG); <<OUTPUT H£ADING>> 
INPUT(IN); <<READ ASCII RECORD» 
COMPRESS(IN,OUT,PKD*CNT); <<PROCEDURE CALL» 
OUTPUT(OUT); <<OUTPUT COMPRESSED RECORD>> 

OUTPUT(LABL,PKD'CNT); <<PHINT LABEL AND CHARACTER COUNT» 
END <<MAIN PROGRAM». 



FUNCTION PROCEDURES 

Function procediires are simply those procedures assigned a type (INTEGER, LOGICAL, BYTE, 
REAL, LONG, DOUBLE) when they are declared. When these procedures are used in an expres- 
sion, they return a value of the specified type in place of their name. (The result is actually 
returned in the top of the stack and can thus be used in the rest of the expression.) 

It is essential that a function assign a value to its name somewhere within the body of the pro- 
cedure. Failure to assign a value to the function name causes a zero value to be returned. There- 
fore, the procedure name should occur on the left side of an assignment statement at some point. 
For example, 

BEGIN 

INTEGER NUM := 108, NIX; _ ^ 

INTEGER PROCEDURE VAL(A,B,C); «FUNCTION DECLARATION» 
VALUE A,B,C; 
INTEGER A,B,C; 

VAL := (A+B)*C; 
«MAIN PROGRAM» 

NIX •= NUM/VAL(4,5,6); «THIS IS EQUIVALENT TO THE STATEMENT:» 

«NIX := NUM/((4+5)*6); 
END. 
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The method by which the function value is returned in the stack follows: 



Function procedures require a place in the 
stack to return the value set into the func- 
tion name. The required space is allocated 
automatically (immediately preceding the 
function parameters) and is set to zero. 
Space allocation is large enough to contain 
the type of return value specified by the 
function type of the procedure. 



Address 



DB + 



Stack Upon 
Procedure Entry 



S,Q 



108 



Meaning 

NUM variable 
NIX variable 



initial stack 
marker 



space for function 
. return value 

' value parameters 



procedure call 
stack marker 



Address 

When the procedure exits, the stack marker DB + 
and the actual parameter, are deleted from 
the stack. The value returned, however, is 
left on the top of stack where it may be used 
to facilitate expression evaluation. 



Stack After 
Procedure Exit 



Q 

S 



108 



54 



Meaning 

NUM variable 
NIX variable 



* initial stack marker 



returned function 
value 
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EXAMPLE 6-2. FACTORIAL COMPUTATION 

This program uses a function procedure to supply the factorial values required to compute the 
number of permutations (different arrangements) of seven items taken three at a time according 
to the formula: 

7! 
7P3 ~ 



(7 - 3)! 

where 

n! = n*(n-l)*(n-2)* *(1) 

0! = 1 

The function procedure in this example has limited general usage since it does not check for 
overflow and would, therefore, return an incorrect result for factorials of numbers greater than 
seven. 

The input/output example shows the declaration and use of function procedures and the use of 
a WHILE statement to compute the factorial. 

Input/Output 

PERMUTATIONS OF 7 ITEMS TAKEN 5 AT A TIME=210 
Listing 

BEGIN «EXAMPLE 6-2. FACTORIAL COMPUTATION>> 

COMMENT: 

THIS PROGRAM CALLS A FUNCTION PROCEDURE TO COMPUTE THE 

FACTORIAL VALUES REQUIRED TO DETERMINE THE NUMBER OF 

DIFFERENT ARRANGEMENTS (PERMUTATIONS) OF N THINGS TAKEN 

R AT A TIME. 

PERMUTATIONS^ N!/(N-R)! 

NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 

INPUT, OUTPUT, AND, CONVERSION - THEY ARE NOT PART OF SPL/5000; 

BYTF ARRAY PLABL(0: 41 ) : ^"PERMUTATI ONS OF 7 ITEMS ", 

"TAKEN 3 AT A TIME="; 

INTEGER N::7, 
R: = 3, 
PERMUTATIONS; 

INTEGER PROCEDURE FACTORIAL ( NUMBR ) ; 
VALUE NUMBR; 
INTEGER NUMBR; 

BEGIN 

COMMENT: 

THIS FUNCTION PROCEDURE COMPUTES FACTORIAL VALUES. 
N! = N(N-i)(N-2)(N-3) ...(i) WHERE 0! = 1 
NO CHECKING IS MADE FOR POSSIBLE OVERFLOWS RESULTING 
FROM REPEATED INTEGER MULTIPLICATION. ; 
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INTEGER PR0D::1; 

WHILE NUMBR>0 DO <<MULT1PLICAT10N LOOP>> 
BEGIN 

PROD:=PROD*NUMBR; 
NUMBR: = i\IUMBR-l; 
END; 
FACT0R1AL: = PR0D; <<RETUHN THE FACTORIAL \/ALUE>> 
END <<FACTORIAL>>; 
«END OF DECLARATIONS>> 

PERMUTATIONS ::FACT0R1AL(N)/FACT0RIAL(N-R); 
OUTPUTCPLABL, PERMUTATIONS); <<OUTPUT ANSWER» 
END <<MAIN PROGRAM>>. 



RECURSIVE PROCEDURES 

A procedure is recursive if it can be called at any time in a program even though an indefinite 
number of previous calls to the same procedure are still active (have not exited yet). Recursive 
procedures are capable of calling themselves. Recursion pertains to operations which are 
inherently repetitive. The result of each operation is usually dependent upon the result of the 
previous repetition. The following procedure is recursive: 

INTEGER PROCEDURE FACTORIAL (I); 
VALUE I; INTEGER I; 

FACTORIAL := IF I = THEN 1 ELSE I * FACTORIAL(I - 1); 

This function procedure calculates the factorial of an integer value (factorial n = n! = n*(n - 1)* 
(n -2)* . . . *(!)) by subtracting one from the integer and calling itself again until the integer 
parameter equals one. Then it returns to itself repeatedly (carrying out the multiplications on 
the way) until the final result has been found. 

This factorial procedure is an example of direct recursion. Recursion can also occur indirectly: 
procedure A calls procedure B which then calls A again. Eventually A exits back to B which 
exits back to A. For example, 



-mam. 

U ) 



First call to , A ,; Exit 

First call to ^ B ^^ Exit 

Second call to ^ A ^ Exit 



Recursion provides a simple and elegant means of handling indefinite nesting. One of the most 
common occurrences of indefinite nesting is in the construction of compilers for programming 
languages. For example, expressions within parentheses can occur within other expressions in 
most programming languages. Evaluation of parenthetical expressions can be easily handled 
using recursive techniques. When the expression analysis procedure encounters a left parenthesis 
it saves the accumulated partial result and calls itself recursively to handle the expression within 
the parentheses. When the inner expression has been evaluated, the procedure exits back to 
itself and continues evaluating the outer expression. 
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Consider the following construction from a hypothetical programming language and assume 
that expr is the procedure that evaluates expressions (down arrows indicate procedure calls, up 
arrows indicate procedure exits) : 



Recursive Levels 










( 2 * 3 * ( 

1 

1 [2*3 = 6]* 


2 + 3 + (4/2 

1 


) ) 
[6*7 = 


) 

t 
= 42] 


2 [2+3 = 5] + 


[5+2 = 7] 
1 




3 


[4/2 = 2] 





42 



Compilers which are written to analyze programs in this manner are called recursive-descent 
compilers. They allow very powerful programming languages to be developed because of their 
inherent generality and nesting capability. The compilers are written modularly with analysis 
procedures for each portion of the language syntax (declarations, array declarations, statements, 
FOR statements, expressions, etc.). Each procedure attempts to recognize a single type of 
syntactic entity. A procedure is called when it is known that the next item in the program must 
be an entity of that type (for example, a condition clause must follow the IF in an IF statement). 
The SPL/3000 compiler is a recursive-descent compiler. 

Re-entrant Code and Recursion 

Re-entrant code and recursion are related topics (re-entrant code is required to implement 
recursion efficiently). Code is re-entrant if it can be used at any time, even if it is entered before 
a previous use of it has completed. When code is re-entrant it can be shared among many users, 
thus ehminating the need for duplicate copies in memory. The simplest way to guarantee that 
code will be re-entrant is not to modify any of the locations in the code. This can be done by 
separating the code from the data. In the HP 3000 this is automatic, since code and data are 
separated into different segments and no instructions modifying the code segment are available 
to the user. All information that must be modified is kept in the user's data segment and each 
user executing shared code has his own data segment. 

However, more than re-entrant code is required for recursion. Recursion also requires that each 
call upon a procedure allocate fresh temporary storage and retain a clear trail back to all previous 
calls within the same program. In HP 3000 these requirements are met by the PCAL and EXIT 
instructions. PCAL creates fresh local storage when it establishes the new Q register setting and 
stack marker. The stack marker saves the environment of the previous call and is used by the 
EXIT instruction to restore the previous environment when the current call is completed. Thus 
all procedures in SPL/3000 are inherently recursive with no special effort required on the part 
of the programmer. 
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Table 6-1 summarizes the differences between re-entrant and recursive code: 
Table 6-1. Re-entrant and Recursive Code Differences 



Requires Provides 



Re-entrant Code 

Non-modified code Code which can be shared by different 

programs at the same time. (Within a 
Separate data storage for each program that program, only one call to the procedure 

calls the code. All information pertinent to can occur before the matching exit.) 

the call is saved in this data area (temporaries, 
return address, etc.). 

Recursive Code 

Re-entrant code (for efficiency) Code which can be called at any point 

within a program, even when previous 
Fresh allocation of local temporary storage calls from the same program are still 

for each call upon the code. Previously alio- active, 

cated storage must be retained unaltered. 

Clear trail back to all previous active pro- 
cedure calls within the program. 



Option Forward 

Indirect recursion presents an interesting syntactic requirement in SPL/3000, since everything 
must be declared before it is used. For example, if procedure A calls procedure B which calls 
procedure A again, B must be declared before A (since A calls B). But, on the other hand, A 
must be declared before B (since B calls A). The dilemma is resolved by the option forward 
construction in a dummy procedure declaration. 

main 



[■J 

c ) 



First call to 1 j Exit 

A 
First call to ( ] Exit 

B 



Second call to { ) Exit 

The procedure head is declared first, followed by the words OPTION FORWARD. The forward 
option indicates that the complete definition of the procedure (the head plus the body) will 
occur later. After all such procedures have been documented with "dummy declarations" and 
forward options, the complete declarations of these procedures can follow in any order. Since 
all parameters have been declared, the compiler has enough information on the procedures to 
allow other procedures to call them. For example. 
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PROCEDURE PROCl; OPTION FORWARD; «dummy declaration» 
PROCEDURE PR0C2; OPTION FORWARD; «dummy declaration» 

PROCEDURE PROCl; IF X = (Y := (Y + 1) THEN PROC2; «complete declaration» 
PROCEDURE PR0C2; IF X = (Z := (Z + 1) THEN PROCl ; «complete declaration» 



EXAMPLE 6-3. BINARY TO DECIMAL CONVERSION 

Recursion is very useful in operating system functions and language compilers. However, these 
are complex examples, not appropriate in a textbook. Recursion can be simply used in the 
conversion of numbers from octal to decimal. The method used divides the octal number by 
128 (decimal 10) repeatedly until the result is 0; the remainders read in reverse order are the 
decimal digits of the converted number: 



5268 ~ "^lo 

428 

128 /5268 
5248 


2 


2 




3 

128 /428 
368 


4 


4 






128 /Sg 


3 


3 



342 10 



This program calls a procedure to convert a binary number (16-bit positive integer) into decimal 
digits and output the results. The procedure divides a binary number by lOio- The remainder 
is converted to an ASCII numeric character and is saved in the stack. If the quotient is not 
equal to zero, the procedure calls itself with the quotient as a parameter. The ASCII characters 
(remainders) are saved in the stack in order of increasing significance— least significant first, most 
significant last. When the quotient finally equals zero, the procedure outputs the last computed 
remainder (the most significant digit) and exits to itself. Each time the procedure exits, another 
digit is output. When the entire number has been output, the program terminates. The follow- 
ing diagram shows the levels of recursion involved in coverting 526 (octal) to decimal: 



Levels of Recursion 



Main Program 

[526e 



1^* call 



12, 



= 428 rem = 2 



2^d call '-^ = 38 rem = 4 



Main Program 
OUTPUT 2 ^ EXIT 

OUTPUT 4 -■ EXIT 



L 



3^^ call ^4- = rem = 3 . . . . OUTPUT 3 -' EXIT 

IZs 

The main program is set up to convert a specific number (5268) but it could easily be generalized 
to handle any positive integer. 
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Output 
342 

Listing 

BEGIN <<EXAMPLE 6-3. BINARY TO DECIMAL CONV£RSION>> 
COMMENT: 

THE MAIN PROGRAM CALLS A RECURSIVE PROCEDURE TO CONVERT A 
BINARY NUMBER TO DECIMAL AND OUTPUT THE RESULT. 
NOTE: "INPUT" AND "OUTPUT" ARE DUMMY PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/3000; 
LOGICAL 0CTN0::%526; 
PROCEDURE CONDECC NUMBER); 
VALUE NUMBER; 
LOGICAL NUMBER; 
BEGIN 
COMMENT: 

BINARY TO DECIMAL CONVERSION PROCEDURE 

THE OCTAL NUMBER IS DIVIDED BY 10 AND THE REMAINDER IS MADE 
INTO AN ASCII CHARACTER. IF THE QUOTIENT IS NOT ZERO, THE 
PROCEDURE CALLS ITSELF. BEFORE EACH EXIT, THE LAST COMPUTED 
CHARACTER IS OUTPUT.; 
BYTE CHAR; 
LOGICAL QUOT; 

QUOT:rNUMBER/10; <<COMPUTE QUOTIENT>> 

CHAR:r%60+NUMB£R MOD 10; <<COMPUTE REMAINDER IN ASCII>> 
IF QUOT <> THEN CONDEC (QUOT ) ; <<FI NISHED ?>> 
OUTPUT(CHAR); <<OUTPUT LAST DIGIT COMPUTED>> 
END; <<CONDEC>> 
«END OF DECLARATIONS>> 

CONDEC(OCTNO); <<INVOKE PROCEDURE>> 
e:jd <<MAIN PR0GRAM». 



INTRINSICS 

Intrinsics are compiled procedures that are supplied to users of HP 3000 as part of the Multi- 
programming Executive (MPE/3000). These procedures provide file access and utility functions. 
(Intrinsics are described in the MPE/3000 reference manual.) 

The programmer could declare his intrinsics procedures as ordinary procedures by adding the 
EXTERNAL option to the head of each procedure and deleting the body. EXTERNAL means 
that the procedure body (code) is linked to the main program by the operating system after 
compilation. Writing out the complete head for some intrinsics can be very time-consuming, so 
a shortcut is provided in SPL/3000. SPL/3000 provides simple interface to intrinsics because 
SPL/3000 itself provides no construct for input and output. Any system-known intrinsics 
(such as those described in the MPE/3000 reference manual) can be declared in a user program 
by using the INTRINSIC declaration: 

INTRINSIC intrinsic procedure list; 

each intrinsic is identified by its name. 
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INTRINSIC declarations occur in the procedure group of the main program or the data group 
of a procedure declaration. The programmer must actually know the declaration format for 
each intrinsic, since he needs to know the type of the procedure and the number /type of 
parameters in order to call the intrinsic correctly. 

Since many procedures (especially intrinsics) have a large number of parameters that may not 
all be required for every call, a method has been provided for specifying a variable number of 
actual parameters. This is done by including OPTION VARIABLE in the option part of the 
procedure head. The compiler generates code (when the procedure is called) to provide the 
procedure with a parameter bit mask in location Q - 4 (also Q - 5 if more than 16 parameters). 
If an actual parameter is missing; for example, NOW(A„C); the corresponding bit in the mask 
is set to zero (0). The correspondence is from right to left (the rightmost bit— bit 1 5— corresponds 
to the rightmost parameter). In the procedure call, the occurrence of a right parenthesis before 
the parameter Kst is filled implies that the rest of the parameters are missing. When the pro- 
cedure is entered, it is the responsibility of the procedure to examine the bit mask. Parameters 
always occur in the same Q- addresses; missing parameters have useless data in their locations. 



SUBROUTINES 

In SPL/3000, the subroutine is a simpler and less powerful form of subprogram than the pro- 
cedure. Subroutines can have parameters, can be typed functions, and can be called recursively. 

However, subroutines are implemented with different hardware instructions (SCAL and 
SXIT). SCAL does not provide a four-word stack marker as PCAL does; this accounts for 
all of the advantages/disadvantages of subroutines: 

• Values in the Q and index registers remain unchanged. 

• A P relative return address is placed on the top of stack. 

• All parameters are referenced relative to the S register and labels cannot be passed as 
parameters. 

• Subroutines cannot have local variables. 

• Subroutines must be located in the same segment as the caller since SCAL and SXIT 
do not bridge segment boundaries. 

• Subroutines can be entered and exited faster than procedures since there is much less 
work for the instructions to do. (The machine environment is neither saved nor restored). 

• Subroutines can be declared within procedures (while procedures cannot) and can 
reference procediore-local variables (since Q is not changed when a subroutine is called). 

• Subroutines, like procedures, can address all global variables since DB is not effected by 
calling them. 



Declaration of Subroutines 

Subroutines can be declared in a main program (global subroutines) or within a procedure 
(local subroutines). 
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Global subroutines can be called only within the main program (not from within procedures 
since procedures need not be in the same segment as the main program). Global subroutine 
declaration must appear after procedure declarations : 

BEGIN 



data group 



intrinsics 



and 



procedures 



subroutines 



main body 



END. 

Local subroutines can be called only from the procedure in which they are declared. They are 
declared in the body of the procedure, after any local data declarations, but before the state- 
ments of the body : 



procedure head 



BEGIN 



data declarations 



subroutine decl. 



statements 



END; 

The declaration format of a subroutine is identical to that of a procedure, except that there is 
no option part and no local data group: 

type 
SUBROUTINE 

name 

formal parameters 
value part 
specification part 



head 



body I statement (possibly compound) 
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For example, 



INTEGER SUBROUTINE S(A,B,C); 
VALUE A,B,C; 
INTEGER A,B,C; 

S:=(A -2) + (B*C); 



Invoking Subroutines 

Subroutines are invoked by using their identifier in a subroutine call statement and replacing 
the formal parameters with actual parameters: 

identifier {parameter list) ; 
Parameters can be stacked (asterisk—*) just as with procedures. 
Function subroutines are invoked by using them within an expression: 

NIX := S(4,5,6) + 8(100,20,1); 
Here is a complete program showing the format of subroutine declarations and invocations: 

BEGIN «USE A SUBROUTINE TO SET AN ARRAY TO ZERO» 

INTEGER ARRAY ADATA(0:50); 

INTEGER I; «INDEX FOR USE IN SUBROUTINE» 

^ SUBROUTINE ZERO(ARRY,HISUB); 

VALUE HISUB; 

INTEGER HISUB; 

INTEGER ARRAY ARRY; 

BEGIN 

I := 0; «SET INITIAL VALUE INTO SUBSCRIPT» 

WHILE I <= HISUB DO 

BEGIN 

ARRY(I) :=0; 

I :=I + 1; 

END; 

END «ZERO»; 



subroutine 
declaration 



subroutine 
call 



«END OF DECLARATIONS» 

ZERO(ADATA,50); «CALL SUBROUTINE» 
END «MAIN PROGRAM». 
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Subroutine Functioning 

The characteristics of subroutines are determined by the functioning of the SCAL and SXIT 
instructions, which work in this manner: 



SCAL 



1. Upon invocation of a subroutine, the parameters are loaded onto the stack and an 
SCAL is executed. 

2. SCAL loads P + 1 (the return address) onto the stack and branches to a relative 
address within the current code segment. 

3. All parameters are referenced using S relative addressing. Since the top of stack 
changes constantly, the S relative addresses of the parameters also change constantly. 

SXIT 

1. When the SXIT is executed, the current top of stack value is used as the P relative 
return address. 

2. Note that since S is constantly changing, it is possible for the subroutine to use an 
incorrect return address if the subroutine has explicitly modified the stack. 

The process above can be seen in the following example. Assume we have a subroutine SW 
which receives two integer values, exchanges them, and exits, leaving them on the stack. 
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BEGIN 




INTEGER A,B; 




SUBROUTINE SW(Y,Z); 




VALUE Y,Z; 




INTEGER Y,Z; 




BEGIN 




ASSEMBLE ( 




LOAD S - 


- 2 «Y» ; 


LOAD S - 


2 «Z» ; 


STOR S - 


4 «Y» ; 


STOR S - 


2 «Z» ; 


RETURN 0; ); 


END; 




«MAIN PROGRAM» 




SW(25,10); 




A := TOS; 




B := TOS; 




END. 





NOTE: All parameters in the subroutine 
stack are S relative addresses. 
Since the current top of stack 
changes constantly, the addresses 
of the variables change also. 



S-2 
S-1 
S-0 



Stack 
On Subroutine Entry 

Y 



25 



10 



Return Address 



After first instruction (LOAD S-2 «Y») 

S 



3 

S-2 
S-1 
S-0 



25 



10 



25 



Y 
Z 
Return Address 



After second instruction (LOAD S-2 «Z») 

Y 



S-4 

S-3- 

S-2 

S-1 

S-0 



25 



10 



25 



10 



Return Address 



LOAD S-2 



After third instruction (STOR S-4 «Y») 

Y 



S-3 
S-2 
S-1 
S-0 



10 



10 



25 



Return Address 



After fourth instruction (STOR S-2 «Z») 

Y 



S-2 
S-1 
S-0 



S-1 
S-0 



10 



25 



Return Address 



After RETURN 



10 



25 



After (A := TOS) and (B := TOS) 

A 



DB + 
DB + 1 

S-0 



25 



10 



B 



The natures of the SCAL and SXIT instructions make subroutines much less flexible and power- 
full than procedures. Subroutines cannot have local variables; the only variables available to a 
subroutine are parameters and DB relative and Q relative (local subroutines only) variables. Also, 
the user must not explicitly modify the stack vsrithin a subroutine without immediately correcting 
for any changes. All subsequent parameters addressing may be incorrect and S may not point to 
the return address when SXIT is executed. 
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EXAMPLE 6-4. MATRIX MANAGEMENT 

This program contains a subroutine that maps a user-specified two-dimensional subscript pair 
into a linear integer array. The user can request the subroutine to read or store a single value 
on each call. The subroutine checks for incompatible parameters. The main program provides 
FOR LOOP indexing to fill a 3 by 3 identity matrix. This example illustrates the declaration, 
invocation, and simple nature of most subroutines. This example manipulates data in memory 
and has no input/output. 



Listing 



BEGIN 


<<EXAMPLE 


6-4. 


MATRIX 


MANAGEMENT» 


COMMENT 


• 

• 














THE MAIi^l 


PROGRAM USES 


THE 


SUBROUTINE 




A 3X3 


IDENTITY 


' Matrix 


• 














1 


















1 















1 




NOTE: 


"INPUT" 


AND "OUTPUT* 


• ARE DUMMY 



MATRIX" TO INITIALIZE 



PROCEDURES WHICH SIMULATE 
INPUT, OUTPUT, AND CONVERSION - THEY ARE NOT PART OF SPL/3000; 
INTEGER ARRAY NUMBRS(0:8); 
BYTE ARRAY ERR (0: 5) : r" ERROR "; 
INTEGER DATA,I ,J,SUB,C0NTL: = 1; 
LABEL EXIT; 

SUBROUTINE MATRIXCDATA 'ARRAY, MAXR0W,MAXC0L, I OFLAG , NUMBER, ROW, COL); 
VALUE MAXR0W,MAXC0L,R0W,C0L; 
INTEGER ARRAY DATA'ARRAY; 

INTEGER MAXROW,MAXCOL,IOFLAG, NUMBER, ROW, COL; 
BEGIN 
COMMENT: 

ARRAY MANAGEMENT SUBROUTINE 

ALLOWS A LINEAR ARRAY TO BE ACCESSED AS A 2 DIMENSIONAL ARRAY 
USING ROW AND COLUMN SUBSCRIPTS. ALL SUBSCRIPTS MUST BE 
NON-'NEGATIVE. THE CALLING PROGRAM MUST PROVIDE THE DATA ARRAY 
NAME, MAXIMUM VALUES FOR ROW AND COLUMN SUBSCRIPTS, I/O CONTROL 
FLAG, NUMBER BEING PROCESSED, AND THE ROW AND COLUMN FOR THE 
CURRENT OPERATION. (MINIMUM ROW AND COLUMN SUBSCRIPTS ARE 
ASSUMED TO BE ZERO) . 

lOFLAG <0 RETRIEVE THE VALUE 

lOFLAG >0 STORE THE VALUE 

lOFLAG =0 RETURNED TO INDICATE ERROR CONDITION 

IF NOT(0<=ROW<=MAXROW) OR NOTC 0<=COL<=MAXCOL ) OR (IOFLAg'0) 
THEN <<REQUEST INVALID» 
BEGIN 

IOFLAG!:0; <<SET ERROR RETURN>> 
RETURN; 
END; 
SUB:=R0W*(MAXR0W+1)+C0L; «C0MPUTE SUBSCR in LINEAR ARRAY>> 
IF IOFLAG<0 THEN NUMBER: =DATA ' ARRAY(SUB) <<R£TRIEVE VALUE» 
ELSE DATA'ARRAY(SUB)::NUMB£R; «STOR£ VALUE>> 
END; <<MATRIX SUBROUTINE>> 
«SND OF DECLARATIONS>> 
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FOR I:=0 UNTIL 2 DO <<INDEX ROWS>> 

FOR J: = UNTIL 2 DO «INDH:X C0LUMNS>> 
BEGIN 

DATA:=IF 1=J THEN 1 ELSE 0; <<3ELECT VALUE>> 
MATRIXCNUr'iBRS,2,2, C0NTL,DATA,I,J)| <<ST0RE A VALUE>> 
IF CONTL-0 THEN «INVAL1D REQU£ST>> 
BEGIN 

OUTPUT(ERH); <<3UTPUT ERROR MESSAG£>> 
GOTO EXIT; <<TERMI NATE>> 
END; 
END; 
EXIT: END <<MAIN PROGRAM». 
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EXERCISES FOR SECTION VI 



1. Complete the diagram below by drawing the stack marker that would be created by a pro- 
cedure call instruction. Assume that this procedure passes three single word parameters that 
are shown on the stack and that the procedure call instruction is about to be executed. 



DL = 34630 
DB = 34630 
Q =40200 
S = 40206 
Z = 42316 



PB = 35000 

P = 35123 (PCAL) 

PL = 357621 

X =000001 

STATUS = 004076 



(40200) Q 



(40206) S 



PREVIOUS STACK 
MARKER 



)local variables 
[parameters 

1(3 WORDS) 



2. Complete the diagram below by drawing the stack as it would appear after a procedure exit 
operation. Values for all registers are given as well as values for the stack marker. Assume 
in this case an EXIT (1) operation is about to be executed. This instruction will leave 2 
single word values on the stack. Show the new values of all registers affected by the EXIT 
(1) instruction. 



DL = 30000 
DB = 30000 
Q = 31011 
S = 31015 
Z = 32000 



PB = 002000 
P =002216 
PL = 002500 
X =177777 
STATUS = 004437 



(31011) Q 



(31015) S 



000001 



000140 



002037 



000011 



PREVIOUS STACK 
MARKER 



^PARAMETERS 
(3 WORDS) 

STACK MARKER 



LOCAL VARIABLES 
^AND TEMPORARIES 
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3. The following procedure declarations contain at least one error. Make the corrections 
required by re-writing or re-arranging the declarations. 

a) PROCEDURE SAM(X, Y, Z); 

VALUE X; 
INTEGER Y,Z; 

BEGIN 

Z :=X + Y; 

END; 

b) PROCEDURE FIXIT (A,B,X); 

VALUE A,B; 
OPTION FORWARD; 
REAL A,B,X; 

c) REAL PROCEDURE BIGGEST (X,Y); 

VALUE X, Y REAL X, Y; 

BIGGEST := IF X < Y THEN Y ELSE X; 

4. Write a simple procedure to move words. Three parameters will be supplied : 

FROM — a logical array (by reference) 
DEST — a logical array (by reference) 
COUNT — a signed integer (by value) 

5. The declarations below illustrate a main program and several subprograms (procedures and 
subroutines). Using the table provided indicate with a checkmark where each variable may 
be legally referenced. Then indicate the scope of addressability for each variable listed 
(GLOBAL/LOCAL). 

a) r BEGIN «MAIN PROGRAM» 
INTEGER X; REAL Y; 



r PROCEDURE ALPHA; 
BEGIN 

INTEGER A; REAL B; 



END; 

■PROCEDURE BETA; 
BEGIN 

INTEGER I, REAL J, LOGICAL K; 



END; 



L- END «MAIN PROGRAM» 
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VARIABLE MAIN PROCEDURE ALPHA PROCEDURE BETA TYPE 



X 










Y 










A 










B 










I 










J 










K 











b) 



BEGIN«MAIN PROGRAM» 
REAL A,B; 



r PROCEDURE THING; 
BEGIN 

INTEGER I,J; 



SUBROUTINE SAM; 
BEGIN 



END; 



END; 



■SUBROUTINE FIXIT; 
BEGIN 



END; 



LEND «MAIN PROGRAM». 



VARIABLE MAIN 



PROCEDURE 
THING 



SUBROUTINE 

SAM 



SUBROUTINE 
FIXIT 



TYPE 



A 












B 












I 












J 













A procediire whose purpose is to plot X - Y points must be able to scale floating-point values. 
Write a subroutine for this purpose; it receives two real parameters by value (a floating-point 
number and a scale factor). Multiply the floating-point number by the scale factor, convert 
the result to a 16 bit integer (use rounding), and return the result to the calling procedure in 
the hardware index register. (Assume the calling procedure contains the local declaration 
INTEGER X = X;.) 
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7. Write a REAL function procedure that will convert degrees to radians. The function will 
accept a single real parameter by value (angle in degrees) and return the result (Radians) 
in the function name. 

Angle in Radians = Angle in Degrees * .017453 

8. Each of the three subroutines shown contains an error. Circle the statements in error and 
explain why they are incorrect. 

a) REAL SUBROUTINE ANS(A,B); 

VALUE A,B; REAL A,B; 
BEGIN 

INTEGER X = X; 

IF X > THEN ANS := A + B 
ELSE ANS := A - B; 
END; 

b) SUBROUTINE EVALUATE (DATA, GOODRANGE); 
REAL DATA, GOODRANGE; 

OPTION EXTERNAL; 

c) SUBROUTINE MOVER (SOURCE, DEST, COUNT); 
BEGIN 

ARRAY SOURCE, DEST; 
INTEGER COUNT; 

MOVE DEST := SOURCE, (COUNT); 
END; 

9. Examine the code shown below. Determine the numeric value of RESULT at point @ and 
at point @ . 

BEGIN 

INTEGER A := 1, 
B :=2, 
C :=3, 
RESULT; 
PROCEDURE SUMUP; 

INTEGER A := 10, 
B := 20, 
C := 30; 
RESULT := A + B + C; 
END; 

RESULT := A + B + C; ^ @ 

SUMUP; -* ® 

END. 
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10. What value is returned by the function procedure shown below? AssumeA = 3.B = ^ 
C= 5. 

LOGICAL PROCEDURE VERIFY (A,B,C); 

INTEGER A,B,C; 

BEGIN 

LOGICAL RESULT; 

RESULT := IF A <= B <= C THEN 5 ELSE 4: 
END; 

11. Rewrite the procedure shown to remove any existing errors. 

PROCEDURE COMPUTE (X,Y); 
BEGIN 

VALUE X; 

INTEGER X,Y; 

Y :=XMOD8; 
END; 
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SECTION Vil 

Data Access Concepts 



This section discusses these SPL/3000 data access concepts: 

• Based and Composite Integers 

• Double and Long Data Types 

• Base Register Reference in declarations 

• Indexed Identifier Reference in declarations 

• Variable Reference in declarations 

• Own variables 

• Advanced array declarations 

• Advanced pointer declaration 

• Advanced variable declaration 

• Explicit stack access 



SPECIAL INTEGER CONSTANTS 



There are two more convenient forms of representing integer constants in SPL/3000: based 
integers, and composite integers. 



Based Integer Constants 

SPL/3000 allows the programmer to use any number base from 2 through 16 in his constants. 
Decimal numbers (base 10) are represented without a special symbol (123, -567, 79). Octal 
numbers (base 8) are represented by putting a % before the digits (%234, %444, %77, %102). 

All other bases are represented in the following manner: 

sign % (base) number 

sign is +, -. (If the sign is omitted the constant is assumed to be positive.) 

base is the number's base value (2 through 16). 

number is any legal number in that base (A, B, C, D, E, F are used to represent 10, 11, 
12, 13, 14, 15, in number systems with bases greater than 10). 
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If the number is greater than 16 bits, it is truncated on the left. For example, 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



%(16) 12A7 











1 








1 





1 





1 








1 


1 


"- 1 

1 


%(9) 238 


























1 


1 











1 





1 


%(4) 230 
































1 





1 


1 








%(16) ABCD 


1 





1 





1 





1 


1 


1 


1 








1 


1 





1 


-%(8) 473 


1 


1 


1 


1 


1 


1 


1 





1 


1 











1 





1 



Composite Integer Constants 

Composite integers are composed of bit fields; these bit fields are concatenated from left to 
right and the result is right-justified. 

A composite integer is represented as follows: 

[bit field list] 

bit field list is a list of bit fields separated by commas. 

bit field is of the form n/i 

n is the number of bits in the field (an integer constant), 

i is an integer constant (decimal, based, or composite) to be used in the field. 

NOTE: Composite integer definitions can be nested. 

The integer to the right of the slash (/) is truncated on the left to the size specified by n (number 
of bits). 



The following diagram shows how a composite integer is constructed from right-to-left: 
[ 3 / 2 , 5 / % 1 7 , 5 / [ 2 / 3 , 3 / 4 ] ] 

,1 1. .100, 



■ 010. \ 




00001001 11111100 

fill during right justification of the connected bit fields. 

Composite integers are very convenient for constructing constants from several small bit fields. 
Bit field lengths can be equated to symbolic identifiers to document the use (or meaning) of 
each subfield. One of the most common needs for this capability is in the construction of 
special floating-point constants because real numbers are composed of fields: 



E F 



S = sign 

E = exponent 



1 9 10 31 F = taction 
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When composite integers are used as type real, they are not floated. The example below shows 
composite integers used to build the largest and smallest positive real numbers: 

EQUATE «BIT FIELDS OF A REAL NUMBER» 

SIGN = 1 , «1 SIGN BIT» 

EXPONENT = 9, «9 EXPONENT BITS» 

FRACTION = 22; «22 FRACTION BITS» 



REAL LARGEST 

SMALLEST 

ZERO 



= [SIGN/0, EXPONENT/%777, FRACTION/17777777D]E, 
= [SIGN/0, EXPONENT/0, FRACTION/1] E, 
= [SIGN/0, EXPONENT/0, FRACTION/0] E; 



DOUBLE AND LONG DATA TYPES 

In addition to BYTE, INTEGER, LOGICAL, and REAL data types, SPL/3000 has two other 
datatypes: 

DOUBLE — double-word integers 

LONG — quadruple word floating-point numbers** 

Both data types can be used wherever a type is required, for example, in constants, simple 
variables, expressions, pointers, arrays, typed procedures, typed subroutines, and 
parameters. The programmer should be aware that hardware to do LONG arithmetic 
is optional on pre-Series II systems. If the hardware is not installed, use of LONG 
arithmetic results in calls to system procedures for each operation. All Series II systems 
have the firmware to do LONG arithmetic. 

Type Double 

Double integers are 32-bit signed integers which can range in magnitude from -2,147,483,648 
to +2,147,483,647. 

Any integer constant followed by a D is treated as a 32-bit signed integer: 

123 D 
-7779 D 
1234567890 D 

[2/211,15[31%(2)101,12/0] ,10/123] D 
%(2)01111011110111101111 D 
%(16) 1023ABCD D 

In declarations, DOUBLE can be used wherever other types can be used: 

DOUBLE A,B,C,D; «SIMPLE VARIABLE» 
DOUBLE ARRAY NOW (0:10); 
DOUBLE POINTER NAW; 

DOUBLE PROCEDURE NEW (A,B);DOUBLE A,B; 
NEW := A + B; 

**Triple word floating-point numbers in pre-Series II systems. 
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The SPL/3000 programmer cannot mix double integers with other data types. Therefore, type 
transfer functions are used to create type compatibility within expressions where variable types 
must be mixed : 

REAL (D) «CONVERT DOUBLE TO REAL» 

DOUBLE (I) «CONVERT INTEGER TO DOUBLE» 

DOUBLE (L) «CONVERT LOGICAL TO DOUBLE» 

DOUBLE (B) «CONVERT BYTE TO DOUBLE-RESULT IS ALWAYS POSITIVE» 

INTEGER (D) «CONVERT DOUBLE TO INTEGER» 

FixT (R) «:truncate real to double» 

FIXR (R) «ROUND REAL TO DOUBLE» 

The only arithmetic operations defined for double integers are bit shifts, addition and subtraction. 



Type Long 



Long floating-point numbers are 64-bit numbers with 32 more bits of fraction than REAL 
numbers. Long numbers can range from -10 '''' to +10^'^ (8.6362 x 10'^^<=lNl<=1.1579 x 10^^) 
with 16.5 digits of decimal accuracy (versus 6.9 digits for REAL).** 

LONG constants are indicated by the letter L and have this format: 

fractional part L power 

fractional part is a signed or unsigned decimal fraction (with decimal point) or decimal 
integer (no decimal point). 

power is a signed or unsigned decimal integer which specifies the power of ten 
to be multiplied by the fractional part. 

For example: 



137 L 20 
123456789 L-2 
-100 L 7 
-55.678329 L 1 

In declarations, LONG can be used anywhere that other types can be used: 

LONG NEW := 1.2345678910 L 23, 

OLD; 
LONG ARRAY THEN (5:15); «4 words per element» 
LONG POINTER SAW; 
LONG PROCEDURE FIND(N,M); 

LONG N,M; 

FIND :=(N*M) + (N/M); 

**For pre-Series II systems: Long floating-point numbers are 48-bit numbers with 16 more bits of 

fraction than REAL numbers. Long numbers can range from -lo'^'^ to +10^'^ (8.6362 x lO""^ 

77 
<= I N 1 <= 1.1579 X 10 " ) with 11.7 digits of decimal accuracy (versus 6.9 digits for REAL). 
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As with DOUBLE, type mixing is not allowed in expressions, so type transfer functions are 
provided : 

LONG (R) «CONVERT REAL TO LONG» 
LONG (D) «CONVERT DOUBLE TO LONG» 
REAL (L) «CONVERT LONG TO REAL» 

An exception is that a long value can be exponentiated to an integer power without type 
transfer. For example (assume LONG L) : 

L := L - 2; 



DECLARATIONS 

Many of the powerful features of SPL/3000 are extensions to the declaration facility. In 
Section IV we saw how simple variables of type byte, logical, or integer could be equivalenced 
to the index register by following the identifier declaration with = X. 

LOGICAL INDX = X; 
BYTE BINDX = X; 
INTEGER X = X; 

This same mechanism is used to provide other types of address equivalencing or register-relative 
references in declarations to allow the programmer to control exactly where each data item is 
to be located. Options are employed to re-use, relabel, and retype storage which is already 
allocated. One location or block of locations can be associated with several identifiers (of 
differing data types) in the same program. For example, an array can be filled as words by 
accessing it with an integer array identifier and manipulated as bytes by referencing it as a byte 
array. 

The general mechanisms (base register reference, indexed identifier reference, variable reference, 
and OWN variables) will be discussed first. Then we will see how they apply in practice to the 
declaration of array, pointers, and simple variables. 

Base Register Reference 

To assign data items explicitly to register-relative locations (when declaring them) follow the 
identifier with a register name and an offset: 

identifier = DB + usi255 
identifier = Q + usil21 
identifier = Q - usi6S 
identifier = S - usiGS 

usi means an unsigned integer that is less than or equal to the number that follows. 

us/255 (0 to 255) usil21 (0 to 127) usi6S (0 to 63) 
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Pointers, and simple variables can all be address referenced by using base register reference in 
declarations. (Arrays can also be register referenced; see the SPL/3000 reference manual.) No 
new space is allocated when this is done— the space may already be allocated to some other 
identifiers. The result is to access the specific location(s) assigned to an identifier when that 
identifier is used. For example, 

INTEGER A = DB + 30: 



Indexed Identifier Reference 

In SPL/3000 the programmer can specify that the zero element of a new array is to coincide 
with some previously-defined array or pointer element, instead of having new space allocated 
for it. This is accomplished in the declaration by following the identifier with an indexed 
reference to an array or pointer: 

identifier = ident (index) 

(index) is optional. 

Thus, two arrays of different type can overlap in the actual data locations they occupy. Since 
no new space is allocated when using indexed identifier reference, initiahzation is not provided. 

For example, 

INTEGER ARRAY REUSE (*) = POINT (6); 

Variable Reference 

The programmer can specify the location of a data item relative to the location of a previously 
defined identifier by following the identifier in the declaration with the identifier of another 
data item plus a signed word offset : 

identifier = identifier ± integer 

integer is optional and is the number of words offset from the location of the referenced 
identifier. 

Whenever the new identifier is used, the location relative to the referenced identifier is accessed. 
INTEGER INTB, A = INTB + 2; 

OWN Variables 

Local arrays, pointers, and simple variables can be declared type OWN. This is done by precedini 
the complete local declaration with the reserved word OWN. The space for the data item is 
allocated in the DB area, not in the Q area. This means that the contents of OWN data items are 
retained between calls to a procedure. Strict local variables (allocated Q+), disappear when a 
procedure exits. If OWN variables are initialized, they are only initialized once at the beginning 
of the program. 
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OWN variables are like global variables, except that they are recognized only within the pro- 
cedure where they are declared. They allow a procedure to keep data in local storage through- 
out the execution of a process, regardless of the number of times the procedure is invoked 
(called and exited). 



ARRAYS 



The type of array discussed in Section IV is only one of the many types of arrays that are pro- 
vided in SPL/3000. These other arrays use the declaration facilities just described and can be 
classified as follows: 

Bounded Arrays (defined bounds) 

Indirect (this is the type covered in Section IV) 

Direct 

P Relative 

Local OWN 

Dynamic Local 
Equivalenced Arrays (undefined bounds) 

Before discussing these arrays, it is necessary to describe the difference between direct and 
indirect. HP 3000 memory reference instructions can directly address a limited range of 
register-relative addresses; the address can be contained in the instruction itself. 

If more data items are required, they must be addressed indirectly through a data label located 
within one of these register-relative ranges: 

P-255toP + 255 
DB + to DB + 255 
Q + Oto Q + 127 
Q - to Q - 63 
S - to S - 63 



Bounded Arrays 

An array is bounded if it has defined upper and lower bounds (as did the arrays discussed in 
Section IV). For example, 

INTEGER ARRAY SUMS (0:10); 

A fixed number of unique locations (determined by the bounds) is allocated for each bounded 
array. There are five types of bounded arrays: 

Indirect 
Direct 
P Relative 
Local OWN 
Dynamic Local 
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BOUNDED, INDIRECT ARRAYS 



These are the normal (default) type of arrays. They can be either global (declared in the main 
program) or local (declared in a procedure) and can be of any data type (BYTE, LOGICAL, 
INTEGER, REAL, DOUBLE, or LONG). In both cases they are accessed indirectly through a 
pointer to the zero element (in the DB+ or Q+ directly addressible area). The actual data space 
is allocated outside the area for pointers and simple variables and is determined by the upper 
and lower bound; the size of the array does not change during execution. Global arrays can be 
initialized, but local arrays cannot. 



Here is an example which shows the space allocated; 

BEGIN 

INTEGER X,Y,Z; 
INTEGER ARRAY A(0:10); 

PROCEDURE B(C); 

VALUE C; INTEGER C; 
BEGIN 

INTEGER ARRAY N(0:10); 



END; 



Stack 



DB + 
DB + 1 
DB + 2 
DB + 3 

DB + 400 



400, 



/ 



allocated 



END. 



Q-0 
Q + 1 



T" DB + 500,Q + 2 
procedure '^ 

entry 



/ 



500, 



X 

Y 
Z 

A(address) 



Space for 
array A 



Stack 
mEirker 

N(address) 

Space for 
local 
array N 



BOUNDED, DIRECT ARRAYS 

These arrays differ from bounded, indirect arrays in only one way: they are allocated space in 
the areas which can be accessed without indirection. Each element is accessible independently; 
there is no pointer for the whole array. These arrays are accessed more efficiently but at the 
expense of using up the hmited range of direct, register-relative locations. The method for 
declaring a bounded, direct array is to follow the identifier and bounds by either = DB (for 
global) or = Q (for local) : 

identifier (bounds) = DB 
identifier (bounds) = Q 

The words required by the elements of the array are allocated contiguously, starting with the 
next available DB or Q location, provided that the zero element of the array falls in the direct 
addressing area. If the array uses all of the remaining primary DB or Q space, no more simple 
variables or pointers can be declared. The array is accessed using direct memory reference 
instructions indexing from a zero element. Note that this does not necessarily limit the size of 
a direct array : 
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BEGIN 

INTEGER A,B,C; 



ARRAY DIR'LOG (0:1000) = DB; 
«MAIN BODY» 
END. 



DB + 



DB + lOOg 



DB + 20628 
S,Q 



I declarations 

^1 



element 
(DIRE'LOG(O)) 



elements 

of 
DIR'LOG 



P RELATIVE LOCAL ARRAYS 

Local arrays of any type which are to contain only constants can be declared to be P relative. 
These arrays must have fixed bounds and must be initialized. Space is allocated in the code 
stream of the procedure for them and is filled with the initial values when compiled. These 
arrays can only be read, never changed. Indirect pointers are generated only if references to 
the array are out of direct range (P ± 255). P relative indirect references are self -relative (the 
offset is added/subtracted to the location containing the address). , 

The format is 

identifier (bounds) = PB := initialization 

The array must be fully initialized when compiled, since it can not be modified during execution. 
For example, 



PROCEDURE 

BEGIN 

ARRAY MSG (0:25)=PB:="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; 

Code Segment 



A := MSG(IO); «WITHIN DIRECT RANGE» 



B := MSG(20); «OUT OF RANGE» 



END; 




self -relative 
address 
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OWN LOCAL ARRAYS 

An OWN array is a bounded array which belongs to a specific procedure but is located in the 
secondary DB area and is accessed indirectly through a Q relative pointer. OWN arrays can be 
accessed only by the procedure in which they are declared or by procedures to which the 
declarer passes the array as a calling parameter. OWN arrays can be of any type and are declared 
by specifying the reserved word OWN before a normal array declaration: 

OWN type ARRAY name {lower : upper) := initialization; 

The array space is allocated when the process begins execution and remains throughout the life 
of the process. A Q relative pointer is allocated by the procedure each time it is entered. This 
structure is shown below: 



DB + 



DB + 400, 



Q 

S 



OWN ARRAY 



Primary DB storage 



Secondary DB storage 



addr. of OWN ARRAY 



4 word Procedure Call Stack Marker 
Local pointer to own array 



DYNAMIC LOCAL ARRAYS 

Since local arrays are allocated in the stack relative to Q+ each time a procedure is entered, 
there is no necessity for their bounds to be constants. Therefore, in SPL/3000, local array's 
can have variables as bounds; the procedure contains code which evaluates the bounds and 
allocates space for the array when the procedure is entered. The size of the array is fixed only 
for this one execution of the procedure; next time the procedure is called the array bounds 
can be completely different. The format is 

type ARRAY identifier {simple var : simple uar); 

simple var can be a global variable or a parameter variable of type integer, logical, 
or byte. 

These arrays are always accessed indirect through a pointer allocated Q+. Therefore, this type 
of array cannot be initialized. For example, 
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BEGIN 



PROCEDURE DOSOMETHING(M,N); 
INTEGER M,N; 
BEGIN 

INTEGER ARRAY LOC(M:N); 



END; 



DOSOMETHING(0:10); 



END. 



Stack after 

procedure sets up 

local array 



DB + 

Q-5 
Q-4 

Q-0 

Q + 1 

DB+403,Q + 2 

S,Q + 12 



/ 



10 



403 



/ 



11 
elements 
of LOG 



M 

N 

Stack 
marker 

DB address of LOC(O). 



space 
) for 
LOG 



Equivalenced Arrays 

An equivalenced array is one which reuses space already allocated to other data items. 

allocated for them since they have no defined size) and are referenced to previously de- 
fined data items. By using equivalencing, one block of storage can be associated with several 
identifiers, each of a different data type. For example, a buffer can be filled as words by 
accessing it through an integer array identifier and manipulated as bytes by referencing it as 
a byte array. 

The address of the zero element of an unbounded array can be specified by equivalencing the 
array to a previously defined identifier. An array declared in this manner takes its addressing 
convention (direct/indirect) from the convention established for the identifier to which it is 
equivalenced. 
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These arrays can be global or local, but they cannot be initialized. The general form of their 
declaration is to replace the bounds with an asterisk (*) and follow the identifier by an 
equivalence : 

{array (index) \ 

pointer (index) \ ; 
identifier ± integer I 

If the referenced item is a direct array or a variable, the result is a direct array whose zero 
element is the location specified. A pointer cell is therefore not allocated. For example, 

BEGIN 

INTEGER A := 0; 

ARRAY DRAW (0:5) = DB; «Bounded, direct» 

INTEGER ARRAY IDRAW (*) = DRAW; «Equivalenced, direct» 

DOUBLE ARRAY DA (*) = A + 7; «Equivalenced, direct» 



END. 



DB + 

+ 1 
+ 2 
+ 3 
+ 4 
+ 5 
+ 6 
DB + 7 



6 
elements 

of 
DRAW 



/ 



INTEGER A 
<-DRAW(0),IDRAW(0). 



DA(0) 



/ 



If the referenced item is a pointer or an indirect array, the result array is indirect. Indirect 
addressing requires a data label (address). An equivalenced array can share the data label 
already established for the referenced array if 

1. The new array is equivalenced to the zero element of referenced array, and 

2. The new array and the referenced array have compatible data types; that is, 
they both must use byte data labels (both byte) or word data labels (both 
non-byte). 

In all other cases, a separate data label address is allocated and initialized for the newly 
declared array. For example, 
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BEGIN 

POINTER P; 

BYTE ARRAY CHAR (0:71); «Bounded indirect» 

BYTE ARRAY BUF (*) = CHAR; «Unbounded indirect» 

BYTE ARRAY INPT (*) = CHAR(5); «Unbounded, indirect— not element new 

data label» 
ARRAY OUTP (*) = CHAR; «Unbounded, indirect— not same address type, new 

data label» 
DOUBLE ARRAY DOUB (*) = P; «Unbounded, indirect-0 element, uses pointer 

cell as data label» 



END. 



DB + 


word address 




I 1 


byte address 




' -L 
1 ^ 




byte address 








1 "^^ 


word address 




72 elements 
of CHAR 




► 



P, address of DOUB(0)(user established) 
address of CHAR,BUF 
address of INPT(O) 
address of OUTP(O) 

-* CHAR(0),BUF(0),OUTP(0). 
^INPT(O) 



Array Summary 

Table 7-1 summarizes the types of arrays discussed in this manual. 



Table 7-1. Summary of Array Types 



Bounded arrays 


Allocate array 
space? 


Allocate a 
pointer cell? 


Specify address 
of pointer 
explicitly? 


Specify address 

of element 

explicitly? 


Can be 
initialized? 


Indirect 
ARRAY BOX(0:25); 


YES, new space 


YES, in DB+or 
Q+ Cell 


NO, next 
available cell 


NO, allocated in 
next available 
space 


YES, if global 


Direct 
ARRAY BOX(0:25)=DB; 


YES, new space 


NO, element is 
directly accessed 


NO, no pointer 
exists. 


NO, allocated in 
next available 
space 


YES, if global 


P Relative 
ARRAY BOX(0:25)=PB:=25(0); 


YES, new space 
in code 


If array is refer- 
enced out of 
P+255 range. 


NO, set in code 
if needed 


NO, allocated in 
available code 
space 


MUST be com- 
pletely initialized 


Local OWN 
OWN ARRAY BOX(0:25); 


YES, new space 


YES, Q-t-cell 


NO, next Q-t- 
cell 


NO, allocated in 
secondary DB 


YES 


Dynannic Local 
ARRAY B0X(IV1,N); 


YES, allocated 
dynamically in 
procedure stack 


YES, upon pro- 
cedure entry 


NO, allocated 
in Q 


NO, array is 
allocated in 
available Q+ 


NO, space not 
allocated until 
proc. entry 


Equivalenced Arrays (Undefined Bounds) 










Equivalenced 
ARRAY B0X(*)=RAR{7); 


NO, re-uses 
space 


DIRECT-NO 

INDIRECT-YES 
if needed 


NO, if needed, 
pointer is allo- 
cated in DB+ or 
Q+ 


YES, by 
reference 


NO, no new 
space 
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POINTERS 



Pointers can be declared locally or globally and can be initialized or unitilized (see Section V) 
To review, the format is: 

type POINTER identifier := @ indexed array ox pointer ; 

The next available DB+ or Q+ cell is allocated for the pointer and the DB-relative address 
specified by the indexed identifier is stored in the location 

Local pointers can be declared OWN (allocated in the global area but accessed only by the 
procedure where declared); OWN pointers can be initialized or unitialized: 

OWN POINTER P; 

OWN BYTE POINTER QUICK := NOW(15); 

As with arrays, global and local pointers can be equivalenced to previously allocated locations 
using base register reference or variable reference. New locations are not allocated for equiva- 
lenced pointers; they re-use allocated space: There are two declaration formats: 

• Variable Reference 

type POINTER name = identifier ± n; 

® Base Register Reference 



type POINTER name 



The specified location is accessed indirectly as a word or byte address (depending on type of 
pointer) whenever the pointer is used. 



SIMPLE VARIABLES 

Simple variables of all types can be declared globally or locally. Simple variables of types byte 
logical, and integer can be equivalenced to the index register. In addition, all simple variable 
types can be equivalenced to specific locations (without allocating any new space) by using base 
register reference or variable reference. The formats are 

• Variable Reference 

type name = identifier ± m; 

• Base Register Reference 

DB + n 

type name = < !^ ^ 
Q-q 

[S-r 



7-14 



DB 


+ m ' 


Q + 


n 


Q- 


P 


S- 


q , 



The specified location is accessed whenever the declared variable identifier is used. Variables 
declared in this manner cannot be initialized since, like equivalenced arrays, they reuse space 
that is allocated to other variables or arrays. 

Local simple variables are declared own by preceding the type with OWN: 

OWN INTEGER A,B := 3; 



EXPLICIT STACK ACCESS 

Sometimes an SPL/3000 program can refer explicitly to the top of stack area: 



Base Register Reference 
TOS-Top of Stack 
Stacked Parameters (*) 



Base Register Reference 

When a variable referenced to an S relative location is accessed, the stack is accessed. It is 
important to remember that these accesses are made by means of memory reference instruc- 
tions. In other words, if a variable is loaded onto the stack from location S - 5, the location 
S - 5 is not "popped" off the stack. Within a single statement (such as an assignment state- 
ment), the compiler guarantees that all references to S relative variables are made to the same 
location. In other words, the compiler adjusts the S relative addresses as things are pushed 
and popped. This does not hold for compound statements, nor if TOS is used. 



TOS-Top of Stack 

When the reserved identifier TOS is used, it refers to the current top of stack. If TOS occurs 
on the left side of an assignment statement the effect is to eliminate the normal store at the 
completion of an expression and to leave the result on the top of stack. 

When TOS occurs in an expression the code uses the current top of stack contents for the next 
operand instead of loading a new value. For example. 



TOS 
TOS 
TOS 



= 2; «LOAD IMMEDIATE 2» 

= 3; «LOAD IMMEDIATE 3» 

= TOS + TOS; «ADD» 

''^rrOQ TVTO^J^ TPrMT A T C MOT' C^^^^ 



TOS is not a variable identifier. Use of TOS never loads or creates a new value on the stack; 
it merely tells the compiler to perform the indicated arithmetic operation with whatever is in 
the stack at the moment. Since the stack is used (implicitly) to evaluate an expression, the 
value of the current top of stack varies with each data operation. Programmers who use the 
TOS construction within an expression must know how the expression will be evaluated in 
order to determine what the top of stack (TOS) will contain when its value is used. 
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The following simple case demonstrates the dangers involved in using TOS: 

TOS := %77; 

B.(0:16) := TOS.(10:4); «EXTRACT IS DONE FROM B NOT %77» 

The value of B is loaded onto the stack (to prepare for the deposit) before performing the 
expression, changing the value of TOS from its expected value (%77) and leading to unpre- 
dictable results. 

In general, whenever TOS is used in a program, the programmer should investigate the code 
that is generated to insure that the expected sequence of events will occur. 



Stacked Parameters (*) 

The asterisk character (*) can be used in place of some parameters in procedure and subroutine 
call statements and in place of some address values in move-scan statements. The asterisk 
indicates that the value has already been loaded onto the stack. 

In procedure calls, if one parameter is stacked, all parameters to the left of it must be stacked. 
For example 

Invalid PROC(A,B,*); 
Valid PROC(*,*,C); 

This mechanism requires additional preparation for use with typed procedures or subroutines. 
The programmer must push a zero value of the proper type onto the stack for the returned 
result before he loads the first stacked parameter. 

In a MOVE or SCAN statement the addresses can sometimes be specified as stacked arguments 
by using *. In this case the compiler allows the second parameter to be stacked even if the 
first is not (the compiler loads the first, then switches S - for S - 1). In move words only one 
of the addresses can be stacked. 
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EXERCISES FOR SECTION VII 



1. Represent the following binary number as based integer values in the bases indicated. 
1111 1110 1100 OIOI2 
(base) 

a) 2 

b) 4 

c) 8 

d) 16 



2. Represent the following based integer values as binary numbers. 

a) %(2) 101101111 

b) %(4) 132113 

c) %7742 

d) %(16) AC6F 

3. a) Without using composite integers, construct octal constants which have the specified 

fields. The notation (starting bit position : field length) is used to describe the bit fields. 



For example, 
Bit Field 


Contents 


0:8 
8:8 


%377 
%123 



-^ %177523 



The first field starts at bit and is 8 bits long. This field contains 3778 . The second 
field starts at bit 8 and is also 8 bits long. This field contains 1238 • The single word 
octal constant %177523 is the composite result of these two fields. 

Form single word octal constants from these bit field specifications. 



BIT FIELD 


CONTENTS 


OCTAL NUMBER 


(0:3) 

(3:5) 

(8:4) 

(12:4) 


4 
5 

1^8 

lOs 




(0:5) 

(5:8) 

(13:3) 


238 
1378 
2 




(0:8) 
(8:8) 


lOOio 
255io 
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b) In this exercise use composite integers to form constants from the following bit field 
specifications. 



BIT FIELD 


CONTENTS 


COMPOSITE INTEGER 


(0:3) 
(3:5) 

(8:4) 
(12:4) 


4 
5 

178 

lOg 




(0:5) 

(5:8) 

(13:3) 


238 
1378 
2 




(0:8) 
(8:8) 


lOOio 
255io 





4. Use composite integers to form testwords (Terminal character: Test character) for the 
SPL/3000 SCAN statement based on the following specifications. 

a) Test character = ASCII Carriage Retiorn 
Terminal character = ASCII Line Feed 

b) Test character = ASCII End of Text 
Terminal character = ASCII Bell 



NOTE: A table of standard ASCII characters is provided in Appendix A. 

5. Write the minimum SPL/3000 code required to test three bit fields of the logical variable 
DATA. (Use composite integers.) 



If all the bit fields specified have the values shown in the table, 
set DATA to TRUE, otherwise set DATA to FALSE. 



Bit field 


Value 


(0:2) 


1 


(5:1) 





(9:3) 


5 



6. Fill in the appropriate table entries with the names of the type transfer functions available 
to convert a data item from one type to another. (Some entries may remain blank.) 



From 

LONG 

REAL 

DOUBLE 

INTEGER 

LOGICAL 

BYTE 



LONG 



REAL 



DOUBLE 



To 
INTEGER 



LOGICAL 



BYTE 
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7. Write the code required to convert a long data value (DATA), to an integer, and store the 
result in an integer SHORT. (Use rounding in the conversion process.) 

Assume the following declarations: 

LONG DATA; INTEGER SHORT; 

8. Select the most appropriate data types for the variables specified. Use minimum core space 
in your selection. Create identifiers and initialized declarations for each item. 

7r = 3.14159 

Eulers Constant = .577215664901533 

radius = 3959 

gallons = 18627235 

Winn's Constant = -4.537269537 x 10^3 

Planck's Constant = 6.62559 x 10" ^^ 

9. For each of the data types in the chart below, fill in the number of bits used, the largest 
possible decimal number, and the smallest possible decimal number. Choose your answers 
from among these choices: 



# of bits 



Largest 10 



16 
32 
(ILLEGAL TYPE) 
48 
32 



16 



(ILLEGAL TYPE) 

255 

+2147483647 

+65535 

(11.7 digits)+10'^'' 

+32767 
(6.9 digits)+10^'^ 



Smallest i q 

-2147483648 

(11.7digits)-10'^'^ 

-32768 



(6.9digits)-10^'^ 

(ILLEGAL TYPE) 





TYPE 



# OF BITS 



LARGEST 10 



SMALLESTio 



BYTE 

LOGICAL 

INTEGER 

REAL 

DOUBLE 

TRIPLE 

LONG 



10 Write a procedure which computes the average value of the elements of an integer array and 
* returns the result to the calling program in the index register. (Remember that the value of 
the index register is "restored" on exit.) The procedure receives two parameters-an mteger 
array by reference and an integer element count by value. 



Hint: 



Q-3 


Index 


Q-2 


Relative P 


Q-1 


Status 


Q-0 


delta Q 
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11. -How many total words of memory are used by these declarations? 

BEGIN 

LOGICAL ARRAY HELLO'MESSAGE (0:35) := " ***HELLO***"; 

BYTE ARRAY INBUF (*) = HELLO'MESSAGE; 

INTEGER ARRAY SCRATCH (*) = INBUF; 

END 

12. Some of these array declarations contain errors. Make changes where required to correct each 
statement error. 

a) BYTE ARRAY INBUF (0:71) := "***ERROR NUMBER***"; 

b) INTEGER ARRAY NUMBER (0:9) = DB := "1234567890"; 

c) BYTE ARRAY ALPHA (0:6) = NUMBER; 

d) LOGICAL ARRAY DATA (0:6) = PB; 

e) REAL ARRAY BIGNO (*) = DB; 

f) BYTE ARRAY CHARSTRING (0:7) = PB := "RESULTS "; 

g) INTEGER ARRAY TOTAL (*) = NUMBER := %77,123,-1; 
h) BYTE ARRAY STRINGCHAR (0:3) = Q := "ABCD"; 

i) ARRAY SAM (1:6) = DB := 0,1,2,3,4,5,6; 

13. Write a REAL function procedure which sums the contents of a dynamic local array and 
returns the result in its name. This procedure will be passed an integer number (by value). 
Use this parameter as the upper bound for the dynamic local array (assume the lower bound 
is always 0.) The dynamic local array is filled by a procedure called GETDATA: 

GETDATA (ARRY, SIZE); 

VALUE SIZE; INTEGER SIZE; REAL ARRAY ARRY; 

«:arry is the dynamic local array and 
size is the size of the array» 

Assume procedure GETDATA is declared in the main program. 

14. Write a procedure TIME'STAMP which will be called by another procedure (COMPUTE) to 
collect performance data. COMPUTE calls TIME'STAMP every time it is entered (and 
passes TIME'STAMP an initial time) and again just before it exits (to pass TIME'STAMP 

a final time). The current clock readings are passed to TIME'STAMP as a double integer by 
value. TIME'STAMP must save the initial time (first call of a pair) until the final time is 
passed in the second call. TIME'STAMP then computes the elapsed time between the two 
calls and saves the result in a double own array of 100 elements. TIME'STAMP collects 
100 elapsed times to fill the own array and then calls procedure WRITETAPE to write the 
array on a tape: 

WRITETAPE(ARRY); 

DOUBLE ARRAY ARRY; 
OPTION EXTERNAL; 
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After emptying the own array, TIME'STAMP resets itself to collect 100 more elapsed time 

values (200 calls). 

Write the procedure TIME'STAMP in SPL/3000. 

15. Assume that the following statement has executed completely. 

MOVE BUFB := BUFA WHILE A,0; 

Write the declarations and statement which would be required to transfer the non-alphabetic 
character in BUFA (which terminated the move) to the character position in BUFB immedi- 
ately following the moved string. Leave all the move addresses unmodified in the stack (i.e., 
do not use a move bytes statement.) Hint: Use equivalenced pointers. 

16. In the program below, insert the statements required to "stack" the parameters needed by 
the call to integer procedure SAM. Start inserting after the comment «START OF MAIN 
PROGRAM». 

BEGIN «DECLARATIONS» 

BYTE ARRAY STRING (0:71); 

REAL NUMBER := 1.2345; DOUBLE BIGWORD := 978633D; 

INTEGER ZERO := 0, SMALL := -1; 



INTEGER PROCEDURE SAM (A, B, C, D); 
VALUE B, C, D; BYTE ARRAY A; 
DOUBLE B; REAL C; INTEGER D; 
BEGIN 



END; 
«START OF MAIN PROGRAM» 

TOS := SAM (*, *, *, SMALL); «CALL INTEGER PROCEDURE SAM» 
END. 

NOTE- Without stacked parameters, the call to SAM would be: 

TOS := SAM (STRING, BIGWORD, NUMBER, SMALL);. 

17. a) How many words of storage are allocated as a result of these declarations 

INTEGER I := 1; 
LOGICAL L = I; 
BYTE B = L; 

b) Using the declarations from Exercise 17a determine the values of variables I, L and B 
after execution of the following statements. The answers should take variable type mto 
account. 
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B:=5; 

I :=10; 

L := INTEGER (B) + I; 

I :=L-21; 



Results 

1 = 
L = 
B = 



7-22 



SECTION VUI 
ASSEMBLE Statements 



The ASSEMBLE statement allows the programmer to generate any HP 3000 machine code he 
chooses. To use this statement, therefore, the reader must be familiar with the machine instructions 
as described in the HP 3000 hardware documentation. The same mnemonics described there are 
usedinSPL/3000.^ 

Although the ASSEMBLE statement should seldom be required, there are several areas where the pro- 
grammer will find it useful: 

• Access to otherwise inaccessible instructions (e.g., XCH, SIO, TBC) 

• Additional code optimization 

• Implementation of a special sequence of instructions not generated by any high-level 
SPL/3000 construction 

NOTE: Example 2-2 in Section II shows an ingenious use of ASSEMBLE statements to 
execute (XEQ instruction) a PCAL instruction loaded onto the stack. 



SYNTAX OF ASSEMBLE STATEMENT 

An ASSEMBLE statement consists of the reserved word ASSEMBLE followed by a list of in- 
structions in a set of parentheses. Each instruction consists of an optional label (plus colon) 
and mnemonic. Instructions are separated by semicolons. Each mnemonic of the instruction 
set is specified in one of nine formats (depending upon the type of operands required). The 
format of an ASSEMBLE statement is 

ASSEMBLE (instruction; instruction; . . . . ; instruction); 

Inslf uvLiOn uuiioioLis kji. au. ^yiiOi.id.1 iaijci \^Ofc;L,i/iOi± -■-■>-^/ j.v^ix\jVTCw ^j a. x.^x±x^i.i.m.^^^^^ ^^^^ 

arguments: 
label: mnemonic; mnemonic; 



^ BCC (branch on condition code) is replaced by six opcodes specifying the particular branch 
conditions: 

BL Branch if less than BG Branch if greater than 

BE Branch if equal BNE Branch if not equal 

BLE Branch if less than or equal BGE Branch if greater than or equal 
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Here is an ASSEMBLE statement and an equivalent high-level sequence: 



«Assemble» 
ASSEMBLE( 

ST AX, DECX; 
PUT: STORARY, I, X; 

BR GET); 



«High-level» 
«assume integer X equivalenced to Index Register» 
X :=TOS-l; 
PUT: ARY(X) := TOS; 

GO TO GET; 



«MNEMONICS NEED NOT BE PLACED ONE PER LINE, BUT THAT IS OFTEN 
THE MOST READABLE FORM» 



MNEMONIC FORMATS 

There are nine mnemonic formats designed for different instructions: 

Format 1 : Memory reference instructions 

Format 2: Stack ops 

Formats: Bit shifts 
Bit tests 
Test and branches 

Format 4: Immediates 

Extract/deposit 
Push /set registers 

Format 5: Read switch register 
Link list search 
Privileged load /store 

Format 6: Pause/halt 

Exchange DB 

Execute 

I/O instructions 

Format 7: Calls/exits 

Boolean immediates 

S register arithmetic 

X register immediate arithmetic 

Load double from program 

Load label 

Test and set bits in memory 

Format 8: Moves, scans, and compare bytes 

Format 9 : Constant definition 

Format 10: Extended precision arithmetic 
Decimal arithmetic 



Conventions Used 

The mnemonic formats are described using the following conventions: 
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Item 



Explanation 



X 



Capital 
letters 



Italics 



[ ] 



{ } 



Indirection 



Index register 



1. Opcodes 

2. Literals, options, and other non-variable items 



Variable items or classes of items 



Pick one item from within the brackets; the entire item is optional 



Pick one item from within the brackets; one item is required. 



Format 1 



la 


LOAD 

LDX 

LRA 




' 


CMPM 
ADDM 
SUBM 
MPYM 


• ' 



label id 
variable id 
DB + Zisj255 
P + usi25b 
P - usi255 
Q + usil21 
Q - usi6S 
S - usi6S 



[,I] [,X] 



LDB 


/ 


LDD 




STOR 




STB 


I 


STD 




INCM 




DECM 

V 





Ic 



BR 



BR 



variable id 
DB + «si255 
Q + usil21 
Q - usi6S 
S - usi6S 



{label id 
P + usi255 
P - wsi255 

DB + usi2bb ] 
Q + usil21 
Q - usiGS 
S -usi63 



[,I] [,X] 



[,I] [,X] 



,1 [,X] 



Id 



( BL 
BE 
BLE 
BG 
BNE 
BGE 



i label id 
P + usiSl 
P - usiSl 



[J] 



le ( TBA 
MTBA 
TBX 
MTBX 



(label id 
P + WSJ255 
P - wsi255 
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where 

variable id is a simple variable, pointer, or array identifier, (indirection is not supplied 
automatically). 

usi is an unsigned integer less than or equal to the number following. 
label id is a label which is used to label a statement within the range of the instruction. 
For example, 

ASSEMBLE(STB S - 1, 1, X; DECM VAR); 



Format 2 



stackop 

or 
stack op, stack op 

In the first case the compiler fills in the second half of the instruction word with a NOP. 
The legal stackops are as follows: 



NOP 


DNEG 


XCH 


FLT 


NOT 


DELB 


DXCH 


INCA 


FCMP 


OR 


DDEL 


CMP 


DECA 


FADD 


XOR 


XROX 


ADD 


XAX 


FSUB 


AND 


INCX 


SUB 


AD AX 


FMPY 


FIXR 


DECX 


MPY 


ADXA 


FDIV 


FIXT 


ZERO 


DIV 


DEL 


FNEG 


INCB 


DZRO 


NEG 


ZROB 


CAB 


DECB 


DCMP 


TEST 


LDXB 


LCMP 


XBX 


DADD 


STBX 


STAX 


LADD 


ADBX 


DSUB 


DTST 


LDXA 


LSUB 


ADXB 


MPYL 


DFLT 


DUP 


LMPY 




DIVL 


BTST 


DDUP 


LDIV 




example, 











ASSEMBLE(DDUP, DELB; STAX); 



Format 3 


3a 


lABZ 




IXBZ 




DXBZ 




BCY 




BNCY 


■ 


CPRB 




DABZ 




BOV 




BNOV 




BRO 




BRE 



label 
P ± wsz31 
* ± usiSl 



LI] 
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In these branch instructions, the address can be specified as a label or a P relative address (P± 
or *± are the same thing). If the label location is not within 31 locations of P (P ± 31), the 
compiler tags this as an error; indirection is not supplied automatically within an ASSEMBLE 
statement. 



3b 


ASL 




ASR 




LSL 




LSR 




CSL 




CSR 




SCAN 




TASL 




TASK 




TNSL 




DASL 




DASR 




DLSL 




DLSR 




DCSL 




DCSR 




TBC 




TRBC 




TSBC 




TCBC 




QASL 




QASR 



usiQS 



[,X] 



usi6S is a shift count or number of bits less than or equal to 63. For example. 



ASSEMBLE(LSL 1; BRE QUIi); 



Format 4 



4a 



LDI 

LDXI 

CMPI 

ADDI 

SUBI 

MPYI 

DIVI 

PSHRt 

LDNI 

LDXN 

CMPN 

SETRt 



usf 255 



f EXF 1 
IDPF / 



f = a privileged instruction for 
some registers 



usilb : usil5 



For example, 

ASSEMBLE (LDI 255; ADDI 5; EXF 7:9); 
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Format 5 




' RSW 




LLSHf 




PLDAf 




PSTAt 




LSEAf 


. 


SSEAt 




LDEAf 




SDEAt 




IXITf 




LOCKf 




PCNt 


, UNLKf j 


For 


example, 



t = a privileged instruction 



ASSEMBLE (RSW; PLDA; . . . LLSH; . . . PSTA); 



Format 6 



PAUS 

SED 

XCHD 

SMSK 

RMSK 

XEQ 

SIO 

RIO 

WIO 

TIO 

CIO 

CMD 

SIN 

HALT 

LST 

PSDB 

DISP 

PSEB 

SCLK 

RCLK 

SST 



usild 



For example, 

ASSEMBLE (XEQ 4); 
All of these instructions except XEQ and RMSK are privileged. 
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Format 7 



PCAL 

SCAL 

EXIT 

SXIT 

ADXI 

SBXI 

LLBL 

LDPP 

LDPN 

ADDS 

SUBS 

ORI 

XORI 

ANDI 



usi2b5 



PCAL procedure identifier 
SCAL (user must load label onto stack) 
LLBL procedure identifier 
For example, 

ASSEMBLE (PCAL READ; SCAL LOOPER; 



.ORI%377); 



Format 8 
8a 



(move 

(MVB 
CMPB 



[PB] 



,0 

,1 
.2 

L '3 J 



If item two is empty, a DB relative move is assumed. 
If item three is empty, the stack decrement is 3. 



8b 



MVBW 



(a ] 

N 








,0 


AN 




,1 


AS 




,2 


ANS 




•- -* 



If item three is empty, the stack decrement is 2. 



8c ( MVBLt ] 
MVLBt I 

I sew I 

I SCU ) 



,0 
,1 
,2 



tPrivileged instruction. 
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If item two is missing, the stack decrement is 2. For example, 



ASSEMBLE (SCW,1); 
ASSEMBLE (MVBW AN, 0); 
ASSEMBLE (CMPB PB, 1); 



8d ( MABSt 
MTDSf 
MDSf 
MFDSf 




1 
2 
3 
4 

5 forMABSand 
MDS 



Format 9 



CON constant list 



This format is actually a psuedo-mnemonic for constant generation; it is not a hardware 
mstruction. 

CON stores a series of constants in the code starting at the current location. In addition to all 
numerical and strmg constants, P relative address constants can be created by listing label 
Identifiers (this is used to create addresses for indirect references). The CON instruction itself 
can be labeled so that other instructions can reference the constants symbolically 



ASSEMBLE( 

BRP + 1,1; 

CONLABELNAME); 
ASSEMBLE (TAB: CON "ABCDEFGH"; 

LDBTAB, X; ); 



Format 10 



10a 



DMUL 

DDIV 

EADD 

ESUB 

EMPY 

EDIV 

ENEG 

ECMP 

DMPY 



10b 



CVAD 
CVBD 



If item 2 is 0, 2 words are deleted from the stack. 

If item 2 is 1 or empty, 4 words are deleted from the stack. 



10c 



CVDB 



If item 2 is 0, 2 words are deleted from the stack. 

If item 2 is 1 or empty, 3 words are deleted from the stack. 



lOd 



' ADDD 






SUED 





1 


MPYD 




CMPD 




9 


SLD 




^ 


NSLD 




SRD 







If item 2 is 0, no words are deleted from the stack. 

If item 2 is 1, 2 words are deleted from the stack. 

If item 2 is 2 or empty, 4 words are deleted from the stack. 



lOe 



CVDA 




If is specified, 1 word is deleted from the stack. 

If 1 is specified, 3 words are deleted from the stack. 

If neither nor 1 is specified, 3 words are deleted from the stack. 

If ABS is specified, the target sign will be negative if the source 

is negative; otherwise, the target will be unsigned. 

If NABS is specified, the target will be unsigned. 

If neither ABS nor NABS is specified, the target sign will be the 

same as the source. 



USES OF THE ASSEMBLE STATEMENT 

The ASSEMBLE statement does not provide automatic indirection when references to identifiers 
are out of range of a particular instruction; out of range conditions are flagged as errors. It is 
the programmer's responsibility to specify indirect addressing and provide an indirect address 
(using the CON psuedo-op). 

These are certain hardware instructions that do not require an argument (SCAN, TNSL) even 
though one is specified in the format syntax. The compiler accepts them with or without an 
argument (the argument is ignored if not needed and the compiler substitutes a zero to allow 
for future hardware use. 
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Mnemonic 

AD AX 

ADBX 

ADD 

ADDD 

ADDI 

ADDM 

ADDS 

ADXA 

ADXB 

ADXI 

AND 

ANDI 

ASL 

ASR 

BCC 

BCY 

BE 

BG 

BGE 

BL 

BLE 

BNE 

BNCY 

BNOV 

BOV 

BR 

BRE 

BRO 

BTST 

CAB 

CIO 

CMD 

CMP 

CMPB 

CMPD 

CMPI 

CMPM 

CMPN 

CPRB 

CSL 

CSR 

CVAD 

CVBD 

CVDA 

CVDB 

DABZ 

DADD 

DASL 

DASR 

DCMP 

DCSL 



Alphabetical Listing of Instructions 

Function 

Add A to X 

Add B to X 

Add 

Decimal add 

Add immediate 

Add memory 

Add to S 

Add X to A 

Add X to B 

Add immediate to X 

And, logical 

Logical AND immediate 

Arithmetic shift left 

Arithmetic shift right 

Branch on Condition Code 

Branch on carry 

Branch on equals 

Branch on greater than 

Branch on greater than or equal 

Branch on less than 

Branch on less than or equal 

Branch on not equal 

Branch on no carry 

Branch on no overflow 

Branch on overflow 

Branch 

Branch on TOS even 

Branch on TOS odd 

Test byte on TOS 

Rotate ABC 

Control I/O 

Command 

Compare 

Compare bytes 

Compare decimal 

Compare immediate 

Compare memory 

Compare negative immediate 

Compare range and branch 

Circular shift left 

Circular shift right 

Convert ASCII to packed decimal 

Convert binary to packed decimal 

Convert packed decimal to ASCII 

Convert packed decimal to binary 

Decrement A, branch if zero 

Double add 

Double arithmetic shift left 

Double arithmetic shift right 

Double compare 

Double circular shift left 



See BCC 



Format 

2 

2 

2 

lOd 

4a 

la 

7 

2 

2 

4a 

2 

7 

3b 

3b 

Id 

3a 



3a 

3a 

3a 

Ic 

3a 

3a 

2 

2 

6 

6 

2 

2 

lOd 

4a 

la 

4a 

3a 

3b 

3b 

10b 

10b 

lOe 

10c 

3a 

2 

3b 

3b 

2 

3b 
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Mnemonic 



Function 



Format 



DCSR 

DDEL 

DDIV 

DDUP 

DECA 

DECB 

DECM 

DECX 

DEL 

DELB 

DFLT 

DISP 

DIV 

DIVI 

DIVL 

DLSL 

DLSR 

DMPY 

DMUL 

DNEG 

DPF 

DSUB 

DTST 

DUP 

DXBZ 

DXCH 

DZRO 

EADD 

ECMP 

EDIV 

EMPY 

ENEG 

ESUB 

EXF 

EXIT 

FADD 

FCMP 

FDIV 

FIXR 

FIXT 

FLT 

FMPY 

FNEG 

FSUB 

HALT 

lABZ 

INCA 

INCB 

INCM 

INCX 

IXBZ 

IXIT 

LADD 



Double circular shift right 

Double delete 

Double divide 

Double duplicate 

Decrement A 

Decrement B 

Decrement memory 

Decrement X 

Delete A 

Delete B 

Double float 

Dispatch 

Divide 

Divide immediate 

Divide Long 

Double logical shift left 

Double logical shift right 

Double logical multiply 

Double multiply 

Double negate 

Deposit field 

Double subtract 

Test double word on TOS 

Duplicate A 

Decrement X, branch if zero 

Double exchange 

Double push zero 

Extended-precision floating point add 

Extended-precision floating point compare 

Extended-precision floating point divide 

Extended-precision floating point multiply 

Extended-precision floating point negate 

Extended-precision floating point subtract 

Extract field 

Procedure and interrupt exit 

Floating add 

Floating compare 

Floating divide 

Fix and round 

Fix and truncate 

Float 

Floating multiply 

Floating negate 

Floating subtract 

Halt 

Increment A, branch if zero 

Increment A 

Increment B 

Increment memory 

Increment index 

Increment X, branch if zero 

Interrupt exit 

Logical add 



3b 

2 

10a 

2 

2 

2 

lb 

2 

2 

2 

2 

6 

2 

4a 

2 

3b 

3b 

10a 

10a 

2 

4b 

2 

2 

2 

3a 

2 

2 

10a 

10a 

10a 

10a 

10a 

10a 

4b 

7 

2 

2 

2 

2 

2 

2 

2 

2 

2 

6 

3a 

2 

2 

lb 

2 

3a 

5 

2 
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Mnemonic 



Function 



Format 



LCMP 

LDB 

LDD 

LDEA 

LDI 

LDIV 

LDNI 

LDPN 

LDPP 

LDX 

LDXA 

LDXB 

LDXI 

LDXN 

LLBL 

LLSH 

LMPY 

LOAD 

LOCK 

LRA 

LSEA 

LSL 

LSR 

LST 

LSUB 

MABS 

MDS 

MFDS 

MOVE 

MPYD 

MPY 

MPYI 

MPYL 

MPYM 

MTBA 

MTBX 

MTDS 

MVB 

MVBL 

MVBW 

MVLB 

NEG 

NOP 

NOT 

NSLD 

OR 

ORI 

PAUS 

PCAL 

PCN 

PLDA 

PSDB 

PSEB 

PSHR 



Logical compare 


2 


Load byte 


lb 


Load double 


lb 


Load double word from extended address 


5 


Load immediate 


4a 


Logical divide 


2 


Load negative immediate 


4a 


Load double from program, negative 


7 


Load double from program, positive 


7 


Load Index 


la 


Load X onto stack 


2 


Load X into B 


2 


Load X immediate 


4a 


Load X negative immediate 


4a 


Load Label 


7 


Linked list search 


5 


Logical multiply 


2 


Load 


la 


Lock resource 


5 


Load relative address 


la 


Load single word from extended address 


5 


Logical shift left 


3b 


Logical shift right 


3b 


Load from system table 


6 


Logical subtract 


2 


Move using absolute address 


8 


Move using data segment 


8 


Move from data segment 


8 


Move words 


8a 


Decimal Multiply 


lOd 


Multiply 


2 


Multiply immediate 


4a 


Multiply Long 


2 


Multiply memory 


la 


Modify, Test, Branch, A 


le 


Modify, Test, Branch, X 


le 


Move to data segment 


8 


Move bytes 


8a 


Move from DB+ to DL+ 


8c 


Move bytes while 


8b 


Move from DL+ to DB+ 


8c 


Negate 


2 


No operation 


2 


One's complement 


2 


Normalizing shift left decimal 


lOd 


Or, logical 


2 


Logical OR immediate 


7 


Pause 


6 


Procedure call 


7 


Push CPU number 


5 


Privileged load from absolute address 


5 


Pseudo interrupt disable 


6 


Pseudo interrupt enable 


6 


Push registers 


4a 
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Mnemonic 



Function 



Format 



PSTA 

RCLK 

RIO 

QASL 

QASR 

RMSK 

RSW 

SBXI 

SCAL 

SCAN 

SCLK 

SCU 

sew 

SDEA 

SED 

SETR 

SIN 

SIO 

SLD 

SMSK 

SRD 

SSEA 

SST 

STAX 

STB 

STBX 

STD 

STOR 

SUB 

SUBD 

SUBI 

SUBM 

SUBS 

SXIT 

TASL 

TASR 

TBA 

TBC 

TBX 

TCBC 

TEST 

TIO 

TNSL 

TRBC 

TSBC 

UNLK 

WIO 

XAX 

XBX 

XCH 

XCHD 

XEQ 

XOR 

XORI 



Privileged store into absolute address 

Read clock 

Read I/O 

Quadruple arithmetic shift left 

Quadruple arithmetic shift right 

Read Mask 

Read Switch register 

Subtract immediate from X 

Subroutine Call 

Scan bits 

Store clock 

Scan until 

Scan while 

Store double word into extended address 

Set enable/disable external interrupts 

Set registers 

Set interrupt 

Start I/O 

Shift left decimal 

Set Mask 

Shift right decimal 

Store single word into extended address 

Store in system table 

Store A into X 

Store byte 

Store B into X 

Store double 

Store 

Subtract 

Subtract decimal 

Subtract im.mediate 

Subtract memory 

Subtract from S 

Subroutine exit 

Triple arithmetic shift left 

Triple arithmetic shift right 

Test, branch, A 

Test bit and set condition code 

Test, branch, X 

Test and complement bit and set CC 

Test TOS 

Test I/O 

Triple normalizing shift left 

Test and reset bit, set condition code 

Test, set bit, set condition code 

Unlock resource 

Write I/O 

Exchange A and X 

Exchange B and X 

Exchange A and B 

Exchange DB 

Execute 

Exclusive OR, logical 

Logical Exclusive OR immediate 



5 

6 

6 

3b 

3b 

6 

5 

7 

7 

3b 

6 

8c 

8c 

5 

6 

4a 

6 

6 

lOd 

6 

lOd 

5 

6 

2 

lb 

2 

lb 

la 

2 

lOd 

4a 

la 

7 

7 

3b 

3b 

le 

3b 

le 

3b 

2 

6 

3b 

3b 

3b 

5 

6 

2 

2 

2 

6 

6 

2 

7 
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Mnemonic 



Function 



Format 



ZERO 
ZROB 
ZROX 



Push zero 

ZeroB 

ZeroX 



EXAMPLE 8-1. DECIMAL TO HEX CONVERSION 

This program reads a decimal or octal number, converts the number to binary, uses an ASSEMBLE 
Statement to convert the binary number to ASCII hexadecimal digits, and outputs the resulting 
hexadecimal value. 

The machine language portion performs these functions : 

• Isolates four bineiry bits 

• Tests the value to determine whether the digit is represented by 0-9 or A-F and adds 
an appropriate number to the original value to form the corresponding ASCII character 

• Stores characters right to left in the buffer, shifts the binary word right four bits, 
and repeats the operation (steps 1, 2, and 3) until all four hexadecimal digits have 
been determined 

• Loads the stack with the array address. 

• Makes a procedure call to output the results 

This program illustrates the first five formats of ASSEMBLE mnemonics: 



Format 1 
Format 2 
Format 3 
Format 4 
Format 5 



Memory reference 

Stack ops [not packed stack op] 

Branches 

Immediates 

PCAL — logic functions 



Input/Output 

ENTER A VALUE 
8 

0008 
ENTER A VALUE 
IS 

0010 

ENTER A VALUE 
1274 

04FA 
ENTER A VALUE 
324 7 

0CAF 
ENTER A VALUE 
79 

004F 
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Listing 

BEGIN <<EXAMPLE 8-1. DECIMAL TO HEX CONVERSION>> 

COMMENT: 

THIS PROGRAM INPUTS A DECIMAL INTEGER, CONVERTS ITS BINARY 
VALUE TO HEXADECIMAL, AND OUTPUTS THE HEX EQUIVALENT. 
(ONE HEX DIGIT REPRESENTS FOUR BINARY BITS.) 
0000 : 1010 = A 



• • • • 



• • • • 



1001 = 9 

NOTE: "INPUT" AND ' 

INPUT, OUTPUT, AND 

BYTE ARRAY DATAMSG (0: 13 ) : = 

BYTE ARRAY HEX(0:4):=" "; 

LOGICAL BIN; 

LABEL NEXTDIGIT; 

«END OF DECLARATIONS>> 

OUTPUT(DATAMSG); 



1111 = F 
'OUTPUT" ARE DUMMY 
CONVERSION - THEY 
'ENTER A VALUE "; 



PROCEDURES WHICH SIMULATE 
ARE NOT PART OF SPL/3000; 



<<REQUEST 



NEXTDIGIT: 



INPUT(BIN); 
ASSEMBLEC 

LDXI 4; 

LOAD BIN; 

DUP; 

ANDI %17; 

DUP; 

CMPI 10; 

BL P+2; 

ADDI %7; 

ADDI 7.60; 

STB HEX,I,X; 

LSR 4; 

DXBZ P+2; 

BR NEXTDIGIT; 



<<READ DECIMAL 



DATA VALUE>> 
NUMBER>> 



ON STACK>> 



<<SET LOOP INDEX>> 

<<PLACE BINARY NUMBER 

<<COPY>> 

<<ISOLATE LOW ORDER 4 BITS>> 

<<COPY>> 

<<COMPARE VALUE TO 10>> 

<<BRANCH IF LESS THAN 10>> 

<<ADD 7.67 IF DIGIT IS A-F» 

<<ADD 7.60 IF DIGIT IS 0-9>> 

«STORE HEX DIGIT IN ARRAY RT TO 

<<SHIFT BINARY NUMBER RT ONE HEX 

«STOP CONVERSION IF INDEX = 0» 

<<CONVERT ANOTHER DIGIT» 



LFT>> 
DIGIT>> 



«END OF CONVERSION LOOP - OUTPUT HEX NUMBER>> 



LOAD HEX; 
LSR 1; 

PCAL OUTPUT; 
<<END ASSEMBLE>> 



<<LOAD STARTING ADDR OF ARRAY>: 
<<CONVERT TO WORD ADDR£SS>> 
«CALL PROCEDURE>> 

); 



END <<DECIMAL TO HEX C0NVERSION». 
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EXERCISES FOR SECTION VIII 



Note: LOAD means "load TOS from memory", 

LDXI means "load Index Register with constant", 

STOR means "store TOS into memory." 

Consult the HP 3000 Reference Manual (HP 03000-90019) for details. 

1. Assume these declarations: 



INTEGER lA 
IB 
IC 



= 5, 
= 4, 
= 3; 



INTEGER POINTER IPTR := @IA; 
LOGICAL LA := 2, 
LB :=1; 
BYTE ARRAY STRING (0:3) := "ABCD"; 



Examine the following ASSEMBLE statements and complete 
the diagrams to show the contents of the stack after each 
ASSEMBLE statement has been executed. (Use scratch paper 
to record intermediate results.) 

a) ASSEMBLE (LDXI 1; «Load index register immediate» 

LOAD I A, X; 
LOAD STRING; 
LOAD IPTR; 
LOAD IPTR, X; 
LOAD IPTR, I, X); 



DB + 


5 


1 


4 


2 


3 


3 





4 


2 


5 


1 


6 


1000 




■ 


400 


A 


B 




C 


D 



S-6 
S-5 
S-4 
S-3 
S-2 
S-1 
S-0 
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b) ASSEMBLE (LOAD STRING; 
LOAD IC: 
LOAD S - 0, 1; 
STOR S - 3; 
LOAD LB, I) 



S-4 




S-3 




S-2 




S-1 




S-0 





2. Assume these declarations: 

LOGICAL COUNTER, MASK; 
PROCEDURE OUTPUT; 
LABEL NEXT; 

Identify the invalid instructions below: 

BR DB + 40; 
INCM COUNTER; 
NEXT: DIV, DELB; 
ZERO; 
ASL 32; 
RSW, DUP; 
PCAL OUTPUT; 
MVBW S; 
ORI MASK; 
BCY NEXT; 

3. Select the non-privileged instruction mnemonics: 



SIO 


HALT 


RSW 


PSHR 


EXF 


XEQ 


XCHD 


PLDA 


CMD 


DPF 
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Graphic 



# 
$ 
% 



APPENDIX A 
ASCII Character Set 



Decimal 


Octal 




Value 


Value 


Comments 








Null 


1 


1 


Start of heading 


2 


2 


Start of text 


3 


3 


End of text 


4 


4 


End of transmission 


5 


5 


Enquiry 


6 


6 


Acknowledge 


7 


7 


Bell 


8 


10 


Backspace 


9 


11 


Horizontal tabulation 


10 


12 


Line feed 


11 


13 


Vertical tabulation 


12 


14 


Form feed 


13 


15 


Carriage return 


14 


16 


Shift out 


15 


17 


Shift in 


16 


20 


Data link escape 


17 


21 


Device control 1 


18 


22 


Device control 2 


19 


23 


Device control 3 


20 


24 


Device control 4 


21 


25 


Negative acknowledge 


22 


26 


Synchronous idle 


23 


27 


End of transmission block 


24 


30 


Cancel 


25 


31 


End of medium 


26 


32 


Substitute 


27 


33 


Escape 


28 


34 


File separator 


29 


35 


Group separator 


30 


36 


Record separator 


31 


37 


Unit separator 


32 


40 


Space 


33 


41 


Exclamation point 


34 


42 


Quotation mark 


35 


43 


Number sign 


36 


44 


Dollar sign 


37 


45 


Percent sign 
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Graphic 

& 
I 

( 

) 

* 

+ 



< 
> 

9 

@ 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 
R 

S 
T 

U 

V 

w 

X 

Y 



Decimal 


Octal 




Value 


Value 


Comments 


38 


46 


Ampersand 


39 


47 


Apostrophe 


40 


50 


Opening parenthesis 


41 


51 


Closing parenthesis 


42 


52 


Asterisk 


43 


53 


Plus 


44 


54 


Comma 


45 


55 


Hyphen (Minus) 


46 


56 


Period (Decimal) 


47 


57 


Slant 


48 


60 


Zero 


49 


61 


One 


50 


62 


Two 


51 


63 


Three 


52 


64 


Four 


53 


65 


Five 


54 


66 


Six 


55 


67 


Seven 


56 


70 


Eight 


57 


71 


Nine 


58 


72 


Colon 


59 


73 


Semicolon 


60 


74 


Less than 


61 


75 


Equals 


62 


76 


Greater than 


63 


77 


Question mark 


64 


100 


Commerical at 


65 


101 


Uppercase A 


66 


102 


Uppercase B 


67 


103 


Uppercase C 


68 


104 


Uppercase D 


69 


105 


Uppercase E 


70 


106 


Uppercase F 


71 


107 


Uppercase G 


72 


110 


Uppercase H 


73 


111 


Uppercase I 


74 


112 


Uppercase J 


75 


113 


Uppercase K 


76 


114 


Uppercase L 


77 


115 


Uppercase M 


78 


116 


Uppercase N 


79 


117 


Uppercase O 


80 


120 


Uppercase P 


81 


121 


Uppercase Q 


82 


122 


Uppercase R 


83 


123 


Uppercase S 


84 


124 


Uppercase T 


85 


125 


Uppercase U 


86 


126 


Uppercase V 


87 


127 


Uppercase W 


88 


130 


Uppercase X 


89 


131 


Uppercase Y 
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Graphic 
Z 

r 
\ 
] 



a 
b 
c 
d 
e 
f 

g 
h 
i 

J 

k 

1 

m 

n 

o 

P 

q 

r 

s 
t 
u 

V 

w 

X 

y 

z 

{ 



Decimal 


Octal 




Value 


Value 


Comments 


90 


132 


Uppercase Z 


91 


133 


Opening bracket 


92 


134 


Reverse slant 


93 


135 


Closing bracket 


94 


136 


Circumflex 


95 


137 


Underscore 


96 


140 


Grave accent 


97 


141 


Lowercase a 


98 


142 


Lowercase b 


99 


143 


Lowercase c 


100 


144 


Lowercase d 


101 


145 


Lowercase e 


102 


146 


Lowercase f 


103 


147 


Lowercase g 


104 


150 


Lowercase h 


105 


151 


Lowercase i 


106 


151 


Lowercase j 


107 


152 


Lowercase k 


108 


154 


Lowercase 1 


109 


155 


Lowercase m 


110 


156 


Lowercase n 


111 


157 


Lowercase o 


112 


160 


Lowercase p 


113 


161 


Lowercase q 


114 


162 


Lowercase r 


115 


163 


Lowercase s 


116 


164 


Lowercase t 


117 


165 


Lowercase u 


118 


166 


Lowercase v 


119 


167 


Lowercase w 


120 


170 


Lowercase x 


121 


171 


Lowercase y 


122 


172 


Lowercase z 


123 


173 


Opening (left) brace 


124 


174 


Verical line 


125 


175 


Closing (right) brace 


126 


177 


Tilde 


127 


177 


Delete 
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APPENDIX B 
Reserved Words 



The following symbols have special meaning in SPL/3000 and thus, cannot be used as identifiers: 



ABSOLUTE 


ELSE 


LABEL 


PUSH 


ALPHA 


END 


LAND 


REAL 


AND 


ENTRY 


LOGICAL 


RETURN 


ARRAY 


EQUATE 


LONG 


SCAN 


ASSEMBLE 


EXTERNAL 


LOR 


SET 


BEGIN 


FALSE 


MOD 


SPECIAL 


BYTE 


FIXR 


MODD 


STEP 


CARRY 


FIXT 


MOVE 


SUBROUTINE 


CASE 


FOR 


NOCARRY 


SWITCH 


CAT 


FORWARD 


NOT 


THEN 


CHECK 


GLOBAL 


NOVERFLOW 


TO 


COMMENT 


GO 


NUMERIC 


TOS 


DABZ 


GOTO 


OF 


TRUE 


DDEL 


lABZ 


OPTION 


UNCALLABLE 


DEFINE 


IF 


OR 


UNTIL 


DEL 


INTEGER 


OVERFLOW 


VALUE 


DELB 


INTERNAL 


OWN 


VARIABLE 


DO 


INTERRUPT 


POINTER 


WHILE 


DOUBLE 


INTRINSIC 


PRIVILEGED 


XOR 


DXBZ 


IXBZ 


PROCEDURE 
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APPENDIX C 
Brief Summary of Commands 



Before the compiler commands can be used, the programmer must enter the operating system and 
the SPL/3000 compiler itself. 



OPERATING SYSTEM COMMANDS 

The operating system (MPE/3000) is accessed using the :HELLO command (on-line terminal 
mode) or the : JOB command (batch mode). These two commands require specification of a 
job name, a user and account pair, and necessary passwords. The command for accessing the 
SPL/3000 compiler is :SPL with optional parameters specifying source file, object file, list 
file, and editing. The object code generated by the SPL/3000 compiler is prepared using the 
:PREP command (or by the compiler with iSPLPREP which compiles and prepares) and is 
executed using the :RUN command (or by the compiler with :SPLGO which compiles, pre- 
pares, and runs). All of these commands are treated in detail in the MPE/3000 reference 
manual. 



COMPILER COMMANDS 

Commands to the compiler are specified by a $ in the first column followed by a command 
word, a space, and a hst of parameters separated by commas. The most common command 
is the'$CONTROL command; its parameters, in simplified form, are as follows: 



$CONTROL 

LIST 

NOLIST 

WARN 

NOWARN 
MAP 



parameter list 

Send each source record to the list file. 

Send only invahd source records and error messages to the list 
file. 

Send warning messages and the records causing them to the list 
file. 

Do not send warning messages to the list file. 

Send a symbol table dump to the hst file after each procedure 
or main body. 
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ERRORS = ddd 

CODE 

NOCODE 
ADR 

INNERLIST 



Set the maximum severe-error count to ddd; exceeding this 
number terminates compilation (0 <= ddd <= 999). 

Send record of actual code emitted (in octal) to the hst file at 
appropriate points. 

Do not sent code listing to the hst file. 

After each declaration, if the LIST command is in effect, send 
the address mode and location of each variable to the list file. 

Send an innerlist of code emitted for each statement to the hst 
file if the LIST command is in effect. 



MAIN - program-name EstabHsh program-name (up to 8 alphanumeric characters, 

starting with alpabetic). 



NOTE: A NOLIST parameter "turns off ADR and INNERLIST if they are 
in effect. 



Default Conditions 

LIST, WARN, ERRORS = constant, NOCODE, MAIN = OB' 

MAP, ADR, and INNERLIST are off at the beginning of a compilation. 

A $CONTROL command overrides parameters of previous SCONTROL commands. Thus, 
parts of a program can be listed while others are not. 
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APPENDIX D 
Answers to Exercises 



ANSWERS TO SECTION I EXERCISES 

1. A process is the unique execution of a program by a particular user at a particular time, 

2. Code segments and data segment. 

3. Code cannot be modified; therefore, it is re-entrant and can be shared by several users. 
Data can be modified; therefore, each user process has a private data storage area. 

4. code data 



^PB 



^P 



^PL 



^S 



Each register listed has a special addressing function. 





REGISTER 


USED TO ADDRESS 




PB 

P 

PL 

DL 

DB 

Q 

S 

z 


Start of code segment 
Currently executing instruction 
End of code segment 
Start of data segment 
First word of stack global area 
Current stack marker 
Current top of stack location 
End of data segment 


5. P 


+255, -255 




DL 


not used for addressing 




DB 


+255 




Q 


+127, -63 




S 


-63 




z 


not used for addressing 
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6. LOAD A 



LOADB 



SUB 



LOAD C LOAD D 



ADD 



MPY 





S 




S 




S 




S 




S 




S 












2 








3 




2 


3 


2 




3 


1 


2 


3 


1 


4 


8 



7. (A-B) *(C + D) 

8. a) Addressing relative to registers. 

b) Bounds checking of each effective address against limit register contents by hardware. 

c) Code segments cannot be modified. 
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ANSWERS TO SECTION II EXERCISES 

Note: [ ] indicates section corrected. There may be other correct solutions. 

1. a) INTEGER I, J := 100, K: Correct statement as is. 

b) REAL NUMBER [;] INTEGER SUM := 0; 

c) INTEGER A := [123] , TESTER := %6412; 

d) REAL ZED [:= 0, B := 0, C := 0] ; 

e) INTEGER INTEGERB:= % 102; Correct statement as is. 

f) INTEGER [BETA] := "A"; 

g) INTEGER BIGGE := [32767] ; or DOUBLE BIGGE := 35767; 
h) INTEGER SAM := 0; 

i) REAL [BEGINER] := 1.414; 
j) INTEGER [MIKE] :=1; 

2. a) SUM := I + [INTEGER (FIXR (NUMBER))] / 2; 

b) Correct statement as is. 

c) Correct as is. 

d) TEMP := (I + J) - K «SUBTRACT AND SAVE> [>] ; 

e) Correct statement as is. 

f) TOTAL := NUMBER [^] 2 + CRUNCHER [-] 2; 

g) TEMP := K * [(SUM := I + K + J)] ; 
h) SUM :=MMOD [ ] 8 [;] 

3. a) Rl = %74000 

b) R2 = "AD" = %040504 

c) R3 = "CE" = %041504 

d) R4 = %1 

e) R5 = %6 

4. a) RA = "AE" = %40505 

b) RB = %0 

c) RC = %60 

d) RD = 0, RE = "BB" = %41102 
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5. BEGIN 

REAL ANS, X := 1.414, Z := .256; 

REAL PROCEDURE RAND; OPTION EXTERNAL; 

ANS := RAND * X - Z; 

END. 

6. BEGIN 
Data Group 
Procedure Group 
Statements 
END. 

7. BEGIN \ 

END. I ^"^llP^°g^^«^ 

8. A compound statement is actually a group of SPL/3000 statements (separated by semi- 
colons) surrounded by a BEGIN - END pair. The compiler treats this statement group as 
a single statement unit. 
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ANSWERS TO SECTION III EXERCISES 



1. a) valid 

b) invalid 

c) valid 

d) valid 

e) invalid 

2. LOOP: IF TESTWORD > THEN Y := A + B + C 

ELSE 
IF TESTWORD = THEN Y := l./A + B + C 

ELSE 

Y := A * B * C; 
COUNT := COUNT +1; 
IF COUNT <= 10 THEN GOTO LOOP; 

3. 



NUMBERg 


AS INTEGER 10 


ASLOGICALio 


TRUE/FALSE 


177777 


-1 


65535 


TRUE 


000001 


+1 


1 


TRUE 


000377 


+255 


255 


TRUE 


000000 








FALSE 


177776 


-2 


65534 


FALSE 


100000 


-32768 


32768 


FALSE 


000003 


+3 


3 


TRUE 


000004 


+4 


4 


FALSE 


000005 


+5 


5 


TRUE 


000006 


+6 


6 


FALSE 



4. a) A LOR B LAND C LOR D 



b) NUMBER <> LAND NUMBER * SCALE <= MAX 



c) X + Y / (Y - 5) * NUMBER LAND %77 
I I 
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d) A * B <> NOT D / C 



^ 



5. a) Illegal statement — OR is legal only in branching conditions such 

IF, WHILE and DO. (IF B OR C THEN GO QUIT;). 

b) Legal statement. 

c) Illegal statement — AND is legal only in branching conditions (see answer a). 

d) Legal statement. 

e) Illegal statement — FIXR results in a type double result, the expression is therefore mixed. 

f ) Illegal statement — NOT is illegal in arithmetic expressions. 

g) Illegal statement — # is invalid operator, 
h) Legal statement. 

i) Illegal statement - RESULT := C LOR (A := B); is legal however, 
j) Illegal statement — mixed expression, 
k) Legal statement. 

6. a) Valid expression. 

b) Valid expression. 

c) Invalid expression - C MOD LOGICAL (D) + LOGICAL (F). 

NOTE: an alternative may be INTEGER (C) MOD D + F. However in this case 
an integer rather than a logical divide is used. 

d) Valid expression. 

NOTE: The solutions presented as answers to these exercises are not necessarily 
unique nor are they always the optimum one. They are only examples 
of correct solutions. 

7. a) IF AGE <= 30 AND HT = 66 AND SEX AND JOB = AND LANG = 2 THEN 

«STATEMENT» 

b) IF 30 <= ID <= 70 AND HT = 62 AND 90 <= WT <= 110 AND EYES = 2 
AND NOT SEX AND (JOB = 3 OR JOB = 7 OR JOB = 9) AND LANG = 7 THEN 
«STATEMENT» 

c) IF ID > 50 AND (21 <= AGE <= 24 OR 37 <= AGE <= 50) AND HT = 79 
AND WT > 190 AND (EYES = 1 XOR SEX) AND (JOB = 1 OR JOB = 8) AND 
(LANG = 4 OR LANG = 9) THEN «STATEMENT» 

d) IF 45 <= AGE <= 50 AND ((EYES = 1 AND SEX) OR (EYES = 2 AND NOT SEX)) 
AND ((JOB = 4 AND LANG = 0) OR (JOB = 5 AND LANG = 1)) THEN 
«STATEMENT» 
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8. a) PTS := 0; 

IF AGE <= 30 THEN PTS := PTS + 1; 
IF HT = 66 THEN PTS := PTS + 1; 
IF SEX THEN PTS := PTS + 1; 
IF JOB = THEN PTS := PTS + 1; 
IF LANG = 2 THEN PTS := PTS + 1 ; 
«END OF TEST» 

b) PTS := 0; 

IF 30 <= ID <= 70 THEN PTS := PTS + 1; 

IF HT = 62 THEN PTS := PTS + 1; 

IF 90 <= WT <= 110 THEN PTS := PTS + 1; 

IF EYES = 2 THEN PTS := PTS + 1; 

IF NOT SEX THEN PTS := PTS + 1; 

IF JOB = 9 OR JOB = 7 OR JOB = 3 THEN PTS := PTS + 1; 

IF LANG = 7 THEN PTS := PTS + 1; 

«END OF TEST» 

c) PTS := 0; 

IF ID > 50 THEN PTS := PTS + 1; 

IF 21 <= AGE <= 24 OR 37 <= AGE <= 50 THEN PTS := PTS + 1; 

IF HT = 79 THEN PTS := PTS + 1; 

IF WT > 190 THEN PTS := PTS + 1; 

IF EYES = 1 XOR SEX THEN PTS := PTS + 1; 

IF JOB = 1 OR JOB = 8 THEN PTS := PTS + 1; 

IF LANG = 4 OR LANG = 9 THEN PTS := PTS + 1; 

«END OF TEST» 

d) PTS := 0; 

IF 45 <= AGE <= 50 THEN PTS := PTS + 1; 

IF (EYES = 1 AND SEX) OR (EYES = 2 AND NOT SEX) THEN PTS := PTS + 1; 
IF (JOB = 4 AND LANG = 0) OR (JOB = 5 AND LANG = 1) THEN PTS := PTS + 1; 
«END OF TEST» 
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9. a) PTS := IF LANG = 
r THEN IF SEX 

r THEN IF 69 <= HT <= 75 

rTHEN IF 160 <= WT <= 210 

rTHEN IF 21 <= AGE <= 35 
rTHEN IF EYES = 2 
r THEN IF JOB = 5 
r THEN 7 
L ELSE 6 
LELSE 5 
L ELSE 4 
L ELSE 3 
^ ELSE 2 
"- ELSE 1 
LELSEO; 
b) PTS := IF NOT SEX 

r THEN IF 21 <= AGE <= 25 
r THEN IF 58 <= HT <= 65 

rTHEN IF 95 <= WT <= 120 
rTHEN IF EYES = 4 
r THEN IF JOB = 3 

r THEN IF LANG = 4 
rTHEN 7 
L ELSE 6 
LELSE 5 
L ELSE 4 
"-ELSE 3 
•-ELSE 2 
•-ELSE1 
^ELSEO; 



10. CASE I 



X:=0; 



IF LI 



r THEN BEGIN 

IFL2 

THEN X := 1 

END 
i-ELSEX :=2; 



CASE II 

X :=0; 

IF LI THEN 

IFL2 



c 



THEN X := 1 



ELSE X := 2; 



The innermost THEN is paired with the closest following ELSE and pairing proceeds out- 
ward. This default association can be overridden by using BEGIN-END pairs to separate 
statements. 
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Table I 



Table II 



Li 


L2 


X 


T 


T 


1 


T 


F 





F 


T 


2 


F 


F 


2 



Li 


L2 


X 


T 


T 


1 


T 


F 


2 


F 


T 





F 


F 
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ANSWERS FOR SECTION IV EXERCISES 



1. a) Valid 

b) Illegal real number 

c) Illegal operation 

d) Valid 

e) Illegal — strings not allowed, 

f) Valid 

g) Illegal — absolute value not allowed, 
h) Illegal — strings not allowed. 

i) Illegal — X and Y undefined when Z is declared. 

2. a) Invalid — , in bounds. 

b) Valid 

c) Valid 

d) Invalid — no name. 

e) Invalid — only last array can be initialized. 

f ) Invalid — equals instead of replacement ( :=) and no quotes around string. 

g) Invalid — real constant cannot be used to initiate integer, 
h) Invalid — nested repeat groups not allowed. 

i) Invalid — reserved word cannot be used as identifier, 
j) Invalid — too many elements. 

3. a) False 

b) False 

c) True 

d) False 

e) True 

4. a) Yes. 

b) The second solution is more efficient. Use of an explicit subscript (even 0) always 
specifies use of the Index Register. Since the subscript is in this case it makes no 
sense to cause the Index Register to be loaded with 0. 

5. ARRAY DATA (-23 : 127); 

6. EQUATE BLANK =%40, 

RETURN = %1 5, 
LINEFEED = %12, 
NULL = 0; 

7. EQUATES = 7, L = 3; 
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8. a) IF 5 <= DATA <= 20 OR X <= DATA <= Y THEN X := X + 1; 

b) ARRAY ONE (0:7) := 1, 3, 5, 7, 9, 11, 13; 
ARRAY TWO (0:7) := 1, 3, 5, 7, 9, 11, 13; 

c) IF LINK.(0:2) = 1 AND LINK.(2:6) < 4 THEN LINK.(8:8) := 0; 

9 DEFINE EQ = EQUATE #, INT = INTEGER #, ARY = ARRAY #, DEF = DEFINE #, 
LOG = LOGICAL #, ASSIGN = THEN #, OTHERWISE = ELSE #; 

10. The address of the zero element is computed by subtracting the lower subscript from the 
first address assigned to the array. 

Address of zero element = (first word address of array) — (lower subscript value) 

= (DB + 256)-100 
= DB + 156 

To address arrays the computer hardware uses the address of the zero element to which is 
added the value of the index register. 

For example : 

Effective address = Address of zero element + Index register 

= 156 + 100 

= 256 

11. EQUATE N = 99; 
INTEGER ARRAY AGE (0:N); 

INTEGER YOUNG, OLD, AVERAGE, SUM := 0, 1; 

YOUNG := OLD := AGE; «INITIALIZE» 
FOR I := UNTIL N DO 
BEGIN 

IF YOUNG > AGE (I) THEN YOUNG := AGE (I); 
IF OLD < AGE (I) THEN OLD := AGE (I); 
SUM := SUM + AGE (I); 
END; 
AVERAGE := SUM/(N + 1); 

12. a) (N + 1) 
b) Yes. 

13. a) 4 times 

b) 2 times (I = 9, which is odd or true.) 

c) Infinite loop. N + 1<= 10 is true (-1) or false (0). 

In either case the value assigned to N will always be less than 10. 

d) 10 times 
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14. BEGIN 

INTEGER JUMPS :=1; 
REAL DISTANCE := 500.; 

WHILE .025 <= (DISTANCE := DISTANCE/2.) DO JUMPS := JUMPS + 1; 
END. 

15= a) INDEX = label is FIRST 

b) INDEX = 3 label is NEXT (index out of bounds) 

c) INDEX = -1 label is NEXT (index out of bounds) 

d) INDEX = 2 label is THIRD 

16. a) True c) True e) False 
b) False d) True f) True 

17. CASE TITLE OF 

BEGIN 



= "MR.." 
= "MRS." 
= "MISS"; 



PREFIX 
PREFIX 
PREFIX 
«NULL»; 

PREFIX :="DR.J' 
END; 
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ANSWERS TO SECTION V EXERCISES 



1. a) Valid 

b) Valid 

c) Invalid — too many characters. 

d) Invalid — only one array can be initialized. 

e) Invalid — real number not allowed. 

f) Valid 

g) Valid 
h) Valid 

i) Warning — too many characters, 
j) Valid 



WORD 



ARRAY NULL 



TOS 



- A 



A 


— 


— 


— 



- A 



3. WORD.(0:8) := A; or TOS.(0:8):=A 
WORD.(8:8) := B; TOS.(8:8) := B 

WORD := TOS 

There £ire many other solutions. 

4. None — INDEX is equivalenced to the hardware Index Register. 

5. Byte Address Word Address 



Final Byte Address 



Address 1 


%1023 


%411 


%1022 


Address 2 


%1460 


%630 


%1460 


Address 3 


%2577 


%1277 


%2576 



6. 


a) 


1 word 




b) 


1 word 




c) 


1 word 




d) 


1 word 




e) 


Invalid 


7. 


a) 


no 




b) 


no 




c) 


yes 




d) 


no 




e) 


yes 
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8. TOTAL := (37 -1 + 144) * 3; 
TOTAL := 540; 

Result is not truncated since integer arithmetic is used for bytes. 

9. INTEGER POINTER IPNTR := @SAM(1); 

10. a) The contents of NUMBER(O) are incremented by one to a value of 2. 

b) The contents of NUMBER(2), NUMBER(3), NUMBER(4), and NUMBER(5) are added 
together and the sum (18) replaces the previous contents of NUMBER(l). 

c) The contents of the pointer location NPNTR are increased by a value of 7. NPNTR now 
pointstoNUMBER(7); 

d) The contents of NPNTR are restored to the address of NUMBER(O); 

e) The address of NUMBER(9) is stored in the location NUMBER(O); 

11. BUFF := %125252; 

MOVE BUFF(l) := BUFF, (99); 

12. MOVE OUTBUF := INBUF, (128), 1; 
@ INPNTR := TOS; 

@ OUTPNTR := TOS; 

13. SOURCEBUF (80) := "*"; 

MOVE DESTBUF := SOURCEBUF WHILE A; 

14. SOURCEBUF (80) := "*"; 

MOVE DESTBUF := SOURCEBUF WHILE A, 1; 

NUMBER := IF > THEN TRUE ELSE FALSE; 

COUNT := TOS; «SAVE LAST DESTINATION ADDRESS» 

COUNT := COUNT - @ DESTBUF; 



15. 

S-1 

S-0 



%1004 



.E 



(DB relative address) 



16. IF DATA = "END OF INPUT" THEN FLAG := TRUE; 
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ANSWERS TO SECTION VI EXERCISES 



(40200) 



PREV 
Q 



(40206) 



(40212) 



PREV 

s-> 



Q,S 



124 



4076 



12 



PREVIOUS STACK MARKER 



LOCAL VARIABLES 



PARAMETERS (3 WORDS) 

INDEX 

REL. P (P-PB + 1) 

STATUS REG. 



2. DL = 30000 
DB = 30000 
Q =31000 
S =31004 
Z = 32000 



PB = 002000 
P = 002140 
PL = 002500 
X =000001 
STATUS = 002037 



(31000) Q 



(31004) S 



PREVIOUS STACK 
MARKER 



TWO WORDS LEFT 
ON STACK BY 
EXIT 1. 



a) INTEGER X, Y, Z; 
X was not specified. 

b) PROCEDURE FIXIT (A, B, X); 
VALUE A, B; 

REAL A, B, X; 

OPTION FORWARD; 

Option part must not precede specification part. 

c) VALUE X, Y; REAL X, Y; 

Semi-colon was missing between Y and REAL; note that BEGIN-END are not required 
in a one statement procedure. 



D-15 



PROCEDURE MOVEWORDS (FROM, BEST, COUNT); 
VALUE COUNT; INTEGER COUNT; 
LOGICAL ARRAY FROM, DEST; 
BEGIN 

MOVE DEST := FROM, (COUNT); 
END; «MOVEWORDS» 



5. a) 



VARIABLE 


MAIN 


PROCEDURE ALPHA 


PROCEDURE BETA 


TYPE 


X 


/ 


x/ 


r/ 


GLOBAL 


Y 


t/ 


V 


y 


GLOBAL 


A 




/ 




LOCAL 


B 




u/ 




LOCAL 


I 






y 


LOCAL 


J 






y 


LOCAL 


K 






y 


LOCAL 



b) 



VARIABLE 


MAIN 


PROCEDURE 
THING 


SUBROUTINE 

SAM 


SUBROUTINE 
FIXIT 


TYPE 


A 


/ 


y 


/ 


1/ 


GLOBAL 


B 


y 


y 


y 


y 


GLOBAL 


I 




y 


y 




LOCAL 


J 




y 


y 




LOCAL 



6. SUBROUTINE SCL (VREAL, SCALE); 
VALUE VREAL, SCALE; 
REAL VREAL, SCALE; 

X := INTEGER (FIXR(VREAL * SCALE)); 

7. REAL PROCEDURE RAD (DEGREE); 

VALUE DEGREE; 
REAL DEGREE; 

RAD := DEGREE * .017453; 

8. a) REAL SUBROUTINE ANS( A, B); 

VALUE A, B; REAL A, B; 
BEGIN 

Integer x = X;" 

IF X > then ANS := a + B 
ELSE ANS := A - B; 
END; 

No local declarations are allowed in a subroutine. 

b) SUBROUTINE EVALUATE (DATA, GOODRANGE); 
REAL DATA, GOODRANG E; 
CbPTIONAL EXTERNAL;^ 

Option External is not valid in a subroutine. (Subroutines may not be compiled without 
a main program or procedure to contain them.) 
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c) SUBROUTINE MOVER (SOURCE, BEST, COUNT); 
BEGIN 

'ARRAY SOURCE, BEST; 
INT EGER COUNT; ^ 

MOVE BEST := SOURCE, (COUNT); 
ENB; 

The subroutine parameter specifications are incorrectly placed. They should be located 
before the BEGIN. 



9. Point (a) result is 6. 
Point @ RESULT is 60. 



10. No value was stored in the function name (VERIFY). The default return is or logical 
FALSE. 

11. PROCEBURE COMPUTE (X,Y); 
VALUE X; 

INTEGER X, Y; 
Y :=XM0B8; 

The parameter specifications were incorrectly placed following BEGIN. Since this is a single 
statement procedure, BEGIN and ENB are optional. 
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ANSWERS TO SECTION VII EXERCISES 



1. (base) 

a) 2 %(2)1111111011000101 

b) 4 %(4)33323011 

c) 8 %177305 

d) 16 %(16)FEC5 

2. a) 000 000 101 101 111 

b) 000 011 110 010 111 

c) 000 111 111 100 010 

d) 1 010 110 001 101 111 

3. a) %102770 

%115372 
%062377 

b) [3/4, 5/5, 4/%17, 4/%10] 
[5/%23, 8/%137, 3/2] 
[8/100, 8/255] 

4. a) [8/%12, 8/%15] 
b) [8/7, 8/3] 

5. DATA := IF (DATA LAND [2/3, 3/0, 1/1, 3/0, 3/7, 4/0] ) = [2/1, 3/0, 1/0, 3/0, 3/5, 4/0] 

THEN TRUE ELSE FALSE; 



FROM 
LONG 

REAL 

DOUBLE 
INTEGER 
LOGICAL 
BYTE 



LONG REAL 



TO 
DOUBLE INTEGER 



LOGICAL BYTE 



— 


REAL 










LONG 


— 


FIXR 
FIXT 








LONG 


REAL 


— 


INTEGER 


LOGICAL 






REAL 


DOUBLE 


— 


LOGICAL 


BYTE 




REAL 


DOUBLE 


INTEGER 


— 


BYTE 




REAL 


DOUBLE 


INTEGER 


LOGICAL 


— 



7. SHORT := INTEGER (FIXR (REAL (DATA))); 

8. REAL PI := 3.14159; 

LONG EULERS'CONSTANT := .57721566490 L; 

INTEGER RADIUS := 3959; 

DOUBLE GALLONS := 18627235 D; 

LONG WINN 'SCONST ANT := -4.537269537L23; 

REAL PLANCK := 6.62559E-27; 
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9. TYPE 


# OF BITS 


BYTE 


8 


LOGICAL 


16 


INTEGER 


16 


REAL 


32 


DOUBLE 


32 


TRIPLE 


ILLEGAL TYPE 


LONG 


48 



LARGEST 10 

255 

65535 

+32767 

(6.9 DIGITS)+10 '^ 

2147483647 

ILLEGAL TYPE 

(11.7 DIGITS)+10'^^ 



SMALLESTio 





-32768 

(6.9DIGITS)-10-^ 

-2147483648 

ILLEGAL TYPE 

(11.7 DIGITS)+10'''' 



10. PROCEDURE AVERAGE (NUMBRS, COUNT); 
VALUE COUNT; 
INTEGER ARRAY NUMBRS; 
INTEGER COUNT; 
BEGIN 
INTEGER INDX = 0, 

X=X; 
X:=-l; 

WHILE (X := X + 1) <= COUNT DO INDX := INDX + NUMBRS (X); 
INDX := INDX/COUNT; 
END; 



11. 



DATA LABELS DATA STORAGE 



39 WORDS TOTAL = 



36 





HELLO'MESSAGE 

INBUF 

SCRATCH 



12. a) Valid 

b) Valid 

c) BYTE ARRAY ALPHA (*) = NUMBER; 

d) LOGICAL ARRAY DATA (0:6) = PB := "DATA GOES HERE"; 

e) REAL ARRAY BIGNO(0:N) = DB; 

f) Valid 

h) INTEGER ARRAY TOTAL (*) = NUMBER; 
i) BYTE ARRAY STRINGCHAR (0:3) = Q; 
j) ARRAY SAM (1:7) = DB := 0,1,2,3,4,5,6; 

13. REAL PROCEDURE SUMIT (UPPER); 

VALUE UPPER; 
INTEGER UPPER; 
BEGIN 

REAL ARRAY TOTAL (0 : UPPER); 

INTEGER I, SUMIT := 0; 

GETDATA (TOTAL, UPPER + 1); 

FOR I := UNTIL UPPER DO 

SUMIT := SUMIT + TOTAL (I); 
END; 
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14. PROCEDURE TIME'STAMP (TIME); 
VALUE TIME; 
DOUBLE TIME; 
BEGIN 

OWN DOUBLE ARRAY ELAPSED'TIME (0:99); 

OWN DOUBLE START'TIME; 

OWN INTEGER SUB := 0; 

OWN LOGICAL PAIR := FALSE; 

IF PAIR THEN BEGIN «START & END TIME RECEIVED» 
ELAPSED'TIME (SUB) := TIME - START'TIME; 
SUB :=SUB + 1; 
END 
ELSE START'TIME := TIME; «SAVE START TIME» 
PAIR := NOT PAIR; «COMPLEMENT START-END SWITCH» 
IF SUB = 100 THEN BEGIN 

WRITETAPE (ELAPSED'TIME); «output data» 
SUB := 0; 
END; 
END «TIME'STAMP»; 

15. BYTE POINTER SORC = S - 0, 

DEST = S-1; 

MOVE BUFB := BUFA WHILE A, 0; 
DEST := SORC; 



16. TOS 
TOS 
TOS 
TOS 



= ZERO; «PUSH ZERO FOR INTEGER RESULT» 
= @ STRING; «PUSH BYTE ARRAY ADDRESS» 
= BIGWORD; «PUSH DOUBLE WORD VALUE» 
= NUMBER; «PUSH REAL VALUE» 



17. a) 1 word 

b) I = -11 

L = TRUE(177765) 
B = %377 
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ANSWERS FOR SECTION VIII EXERCISES 



1. a) S-4 


4 


S-3 


1000 


S-2 





S-1 


2 


S-0 


4 






b) S-3 





S-2 


1000 


S-1 


3 


S-0 


4 



2. BRDB + 40; 
RSW, DUP; 
MVBW S; 
ORI MASK; 



3. RSW 
EXF 
XEQ 
DPF 
PSHR 
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INDEX 



NOTE: Special symbols are listed at the end with cross references to alphabetic entries. 



A 



A, 3-9. See also TOS, S register 
Abbreviations, 4-1, 4-2 
Absence traps, 6-1 
Absolute values (1), 2-6 
Accuracy, 2-1, 7-4 
Actual parameters, 6-6 

variable number of, 6-21 
ADD, 1-6, 1-8 
Addition (+), 3-3, 2-5 
Address 

byte, 4-4 

conversion of, 5-5, 5-8 

pointer contains, 5-4 

shifting, 5-8 

variable, 5-6 

zero element, 4-4 
Addressing 

byte, 1-5 

double, 1-5 

indirect, 1-5 

ranges, 1-5 

relative, 1-2, 1-5, 1-9 

v^ord, 1-5 
Address references, 7-5 
Algebraic compares, 3-4 
ALPHA {reserved word), 5-20 
Alphabetic, 5-13, 7-1 
AND, 3-10. See also LAND 
Arithmetic expressions, 2-4—2-10 

assignment of, 2-4, 2-10 

in example, 2-12 

operators in, 2-4 
Arithmetic shifts, 2-9 
ARRAYS, 4-3-4-6 

accessing elements of, 4-6 

advanced feature of, 7-7 

bounded, 7-7, 7-8 



ARRAYS (cont.) 

bounds checking of, 4-3 

byte, 5-2, 5-3 

declaration of, 4-4 

direct, 7-8 

dynamic local, 7-10 

equivalenced, 7-11 

example use of, 4-9, 4-13 

indirect, 7-7 

initializing, 4-3, 4-5 

location of, 4-3 

one-dimensional, 4-3 

overlapping, 7-6 

own local, 7-6, 7-10 

pointer versus, 5-4 

P-relative local, 7-9 

storage allocation for, 4-4 

summary of, 7-13 

types of, 7-13 

variable bounds, 6-5 

zero element of, 4-4 
ASCII characters, 5-1, A-l-A-3 
Assignment statements, 2-10 

actual parameter, as, 6-6 

example of, 2-12 

IF, 3-11 

logical, 3-7 
Asterisk (*) 

array declaration and, 7-12 

byte comparison and, 5-19 

CASE statement and, 4-15 

FOR statement and, 4-6 

GOTO statement and, 4-14 

MOVE bytes statement and, 5-13 

MOVE (bytes) WHILE statement and, 5-13 

MOVE statement and, 5-11 

SCAN UNTIL statement and, 5-17 

SCAN WHILE statement and, 5-18 

SWITCH and, 4-14 



Average, 2-12 



B 



Back slashes (\), 2-6 
Based integer constants, 7-1 
Base register references, 7-5 
pointer use of, 7-14 
simple variable use of, 7-14 
stack accessing using, 7-15 
BCC, 3-10 
BEGIN 

starting compound statement with, 2-14 
starting procedure body vi^ith, 6-5 
starting program vdth, 2-13 
Bit fields 

concatenation of, 7-2 
use of, in composite integer, 7-2 
Bit functions, 2-5, 2-7-2-10. See Extract; 

Concatenate 
Bounded arrays, 7-7 
direct, 7-8 
indirect, 7-8 
Bounds 
array, 4-3 
byte array, 5-2 
checking, 1-9 
array, 4-6 
CASE, 4-15 
indexed GOTO, 4-14 
SWITCH, 4-14 
P-relative arrays have fixed, 7-9 
undefined array, 7-11 
BOV, 3-10 

Branch operators, 3-10 
Branch virords, 3-9 
BYTE, 5-1 

arrays of type, 5-1, 5-2 
type transfer function, 5-4 
variables of type, 5-1 
Bytes, 1-7, 2-1, 5-1 

addressing, 4-4, 5-1—5-3, 5-12 
comparing, 5-19, 5-20 
moving, 5-12—5-15 
scanning, 5-16—5-19 
size of, 2-10, 3-7 
subscripting for, 5-2 
testing, 3-5, 5-19, 5-20 
type transfer with, 5-4 



Calculator, 4-16 
CARRY, 3-9 



CARRY (con t) 

SCAN UNTIL, 5-17 
SCAN WHILE, 5-18 
CASE statement, 4-15, 4-16 
CAT, 2-8 

Characters, ASCH, 5-1, A-l-A-3 
Circular shifts, 2-9 
Circumflex ('-). See Exponentiate 
CMP, 3-5 
CMPB, 5-19 
Code (instructions) 

bounds checking of, 1-2 
no modification of, 6-17 
registers for, 1-3 
relative addressing for, 1-2 
segments of, 1-2, 1-9, 6-1 
separation from data of, 6-17 
sharing of, 6-17 
Code Segment Table (CST), 6-2, 6-7 
Colon (:) 

use of, in concatenate, 2-8 
use of, in deposit, 2-11 
use of, in extract, 2-7 
use of, in label position, 3-1 
MPE/3000 commands begin with, C-1 
Colon-equals (:=) 

assignment statement uses, 2-10 
byte arrays initialized with, 5-2 
byte variables initialized with, 5-1 
logical assignment uses, 3-7 
move bytes statement uses, 5-12 
move bytes while statement uses, 5-12 
MOVE statement uses, 5-9 
pointers initialized with, 5-14 
switch declaration uses, 4-14 
Comma (,), 2-3 
Commands, 2-15, C-1, C-2 
Comments (« »), 2-2, 2-3 
Commercial at (@) 

actual contents of pointer specified with, 5-6 
address of variable specified with, 5-6 
example use of, 5-15 
pointer initialized with, 5-4 
Compare range and branch. See CPRB 
Comparing, 3-4, 5-19 
Compilers 

commands of, C-1 
recursion and, 6-16, 6-17 
Composite integer constants, 7-2 
Compound statement, 2-14, 4-15 
Computer, Conventional, 1-5 
Concatenate, 2-8 

Condition code, 3-10, 5-13, 5-14, 5-18 
Conditions, 3-8, 3-11, 4-11, 4-12 
Conjunction. See LAND; AND 
Constants, 2-1 



Constants (cont.) 

ASSEMBLE, 8-8 

based integer, 7-1 

composite integer, 7-2 

logical, 3-3 

special integer, 7-1 
Control, Transfer of, 3-1 

GOTO statement provides, 3-2 

CASE statement provides, 4-15 

SWITCH statement provides, 4-14 
Conventions, ASSEMBLE, 8-2 
Conversion programs, 6-19, 8-12 

See also Type transfer functions 
Count, 5-9, 5-12 
Count variable, 4-6 
CPRB, 3-5, 4-2 
CST. See Code Segment Table 



D 



D 



indicates DOUBLE constant use, 7-3 
DABZ, 3-9 

reverse sense of, 4-12 
Data 

access concepts for, 7-1 
compression of, 6-11 
declaration of, 6-4 
registers, 1-3 
segments of, 1-3 
separated from, code, 6-17 
types of, 1-7 
verification of, 3-12 
Data base register. See DB 
Data groups, 6-5 
Data labels, 4-4, 5-2-5-4 
Data limit register. See DL 
DB area 

as location of global variables, 2-3 
direct arrays in, 7-8 
own variables in, 7-6 
secondary, 4-4 
DB register, 1-3 

addressing range relative to, 1-5 
reference, 7-5 
DCMP, 3-5 
Decimal, 2-1 
constants, 7-1 
conversion, 6-19 
Declaration, 2-3 
example of, 2-12 
extensions to, 7-5 
global, 2-13 
of labels, 3-1 



Declaration (cont.) 

not allowed in compound statements, 2-14 
not required for labels, 3-2 
Decrement, 3-9 
Default 
array, 7-8 

command conditions, C-2 
DEFINE 

declaration, 4-2 
invocation, 4-2 
Defined bounds, 7-7 
Delimiters, 2-2, 5-20 
Delta Q, 6-10 
Deposit, 2-11 
Destination 

move bytes, 5-12, 5-13 
move bytes while, 5-13, 5-14 
move words, 5-19—5-12 
Differing data types 

in equivalence, 7-11 
Direct addressing, 7-7 
with @, 5-6 

with bounded arrays, 7-8 
Division (/), 2-5, 3-3 
DL, 1-3 

area between DB and, 1-5 
diagram of, 1-4 
DO. See FOR statement; DO UNTIL statement; 

WHILE DO statement 
Dollar signs ($), Compiler commands start with, C-1 
DOUBLE, 3-7, 7-3 

arithmetic operations, 2-5, 7-4 
conversion to, 2-6 
declaration, 7-3 
range of, 7-3 
shifts, 2-9 
DO UNTIL statement, 4-11 
DXBZ, 3-9, 4-2 

reverse sense of, 4-12 
Dynamic 

address in pinter, 5-8 
local arrays, 7-10 
temporary storage, 6-1 



E 



Elements 

of byte array, 5-3 

pointer indexing for, 5-7 
ELSE, 3-8, 3-9, 3-11 
END 

in procedure body, 6-5 

terminates compound statement with semicolon, 2-14 

terminates program with period, 2-13 



Equals sign (=) 

in DEFINE, 4-2 

in direct arrays, 7-8 

in EQUATE, 4-1 

in equivalencing, 4-2, 7-5 

in indexed identifier reference, 7-6 

in P-relative array declaration, 7-9 

in variable reference, 7-6 
EQUATE, 4-1, 4-9 
Equivalencing, 7-5—7-11 
Example Programs 

2-1 Sum average, 2-12 

2-2 Command interpreter, 2-15 

3-1 Data verification, 3-12 

4-1 Integer sort, 4-9 

4-2 Table search, 4-13 

4-3 Integer calculator, 4-16 

5-1 Symbol type sorter, 5-15 

5-2 Mark delineator character, 5-20 

6-1 Data compression, 6-11 

6-2 Factorial computation, 6-15 

6-3 Binary to decimal conversion, 6-19 

6-4 Matrix management, 6-26 

8-1 Decimal to hex conversion, 8-14 
Exclusive OR. See XOR 
Execution order, 2-13 
EXIT, 1-7, 1-9, 6-1, 6-2, 6-8, 6-10 

and recursion, 6-17 

from procedure, 6-7 

generated by RETURN, 6-11 
Exponentiation ('^), 2-5 

LONG to integer, 7-5 

type mixing allowed in, 2-5, 2-6 
Expression. See also Arithmetic expressions; 

Logical expressions; Expression IF assignment 
Expression IF assignment, 3-11 
EXTERNAL. See OPTION EXTERNAL 
Extract, 2-7 



Factorial, 6-15 

FALSE, 3-2-3-11, 5-20 

FCMP, 3-5 

File access, 6-20 

FIXR, 2-6, 3-7 

FIXT, 2-6, 3-7 

Floating-point arithmetic, 1-7, 7-2. 

See REAL; LONG 
Formal parameters. Subroutine, 6-23 
Format 1 (of IF), 3-8 
Format 2 (of IF), 3-9 
FOR statement, 4-6-4-9, 6-26 

alternate forms of, 4-8 



FOR statement (cont.) 

basic form of, 4-7 

cautions in use of, 4-8 

entering, 4-8 

example use of, 4-9 

exiting, 4-9 

machine-dependence of, 4-8 

STEP, 4-8 
FORWARD. See OPTION FORWARD 
Function, 2-6 

example use of, 6-15 

procedures, 6-13 



H 

Hardware operations, 3-3 
Hierarchy, 3-3, 3-6 



lABZ, 3-9 

reversed in WHILE-DO, 4-12 
Identifiers, 2-2, 4-3 
IF expressions, 3-11 
IF statements, 3-8-3-11 

branch words, 3-9 
Format 1, 3-8 

Format 2, 3-9 

hardware condition, 3-9 

in example, 3-12 

nesting, 3-10 
Inclusive OR. See LOR; OR 
Increment, 3-9 
Index register. See X 
Indexing 

byte, 1-7 

double, 1-7 

elements, 1-7 

GO TO, 4-14 

identifier reference, 7-6 

POINTER, 5-7 
Indirection, 7-7 

in bounded arrays, 7-8 

in OWN arrays, 7-10 

not automatic, in ASSEMBLE, 8-5, 8-8 

in pointers, 5-4, 5-5 
Initialization, 2-3, 3-3 

of arrays, 4-5 

of byte arrays, 5-2 

dynamic, with MOVE, 5-12 

not with indexed identifier reference, 7-6 

of OWN arrays, 7-6 

of POINTERS, 5-4 



Initialization (cont.) 

of P-relative arrays, 7-9 

strings in, 4-5 
Instruction, 7-15. See also Machine instruction 
INTEGER, 1-7 

constants, 2-1 

corrected to byte, 5-4 

declaration, 2-3 

DOUBLE, 7-3 

number line, 3-4 

range, 3-5 

special constants, 7-1 

type transfer functions, 2-6 

variables, 2-3 

versus logical, 3-4 
Input/output, 6-20 
INTRINSIC, 2-13, 6-2 

declaration, 6-20, 6-21 
IXBZ, 3-9, 4-2 

reversed in WHILE DO, 4-12 



indicate long constant with, 7-4 
Labels 

in ASSEMBLE, 8-2 
LABEL declaration, 3-1, 3-2 
in SWITCH, 4-14 
LAND, 3-3, 3-10 
LCMP, 3-5 

Left-right versus right-left move, 5-10, 5-17 
Limit checking 

in FOR statement, 4-7 
Limited resourse 

directly addressable locations are 7-8 
LLSH, 4-2 
LOAD, 1-6, 1-8 
Local arrays 

dynamic, 7-10 

OWN, 7-6 

P-relative, 7-9 
Local storage 

allocation, 1-7 

deletion of, 1-9 

dynamic, 1-9 
Local subroutines, 6-23 
Local variable, 6-2, 6-9 
Logical, 1-7, 2-1 

compare, 3-4 

constants, 3-3 

convert from byte to, 5-4 

expressions, 3-2—3-7, 3-9 

no exponentiation, 2-5 



Logical (cont.) 

number line, 3-4 

operators, 3-3—3-5 

shifts, 2-9 

type transfer, 3-7 

value range, 3-4 

variables, 3-3 
Long, 1-7, 2-1, 7-3, 7-4 
Looping, 4-1, 4-6, 4-11, 4-12 
LOR, 3-3, 3-10 



M 



Machine code, 8-1 
Machine-dependence, 5-1 

and FOR statement, 4-6, 4-8 
and procedure, 6-7 
Machine instructions 

access of, through ASSEMBLE, 8-3-8-14 
alphabetic listing of, 8-8-8-14 
function of, 8-8-8-14 
Main body, 2-13 
Matrices, 6-26. See also Arrays 
Memory reference instructions, 1-5 
Memory, Virtual. See Virtual memory 
Mnemonics, 8-1 

alphabetic list of, 8-8- 8-14 
formats of, 8-2 
MOD (modulo), 2-5, 3-3 
MOVE (bytes) statement, 5-12 
Move (bytes) WHILE statement, 5-13, 5-15, 6-11 
MOVE instruction, 5-9 
MOVE statements, 5-9, 5-20 
Move words, 5-9 

variations on, 5-11 
Moving constants, 5-11 
MPE/3000, 1-2 
commands of, C-1 
intrinsics and, 6-20 
sets register, 1-3, 1-4 
MPY, 1-8 
MTBA, 4-6, 4-8 
MTBX, 4-2, 4-6, 4-8 

■N/r,.i4-;„i„ «^oirtv,*>-.Q»if 0_1 1 
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Multiplication (*), 3-3 
MVB instruction, 5-9 
MVBW instruction, 5-9 



N 



Negative step value, in FOR, 4-7 
Nesting, 2-14 

of composite integers, 7-2 



Nesting (cont.) 

of DEFINES, 4-2 

of FOR statements, 4-8 

of IF statements, 3-8, 3-10, 3-11 

recursion and, 6-16 

of repetition factors, 4-5 
New space, not for equivalenced arrays, 7-11 
NOCARRY, 3-9 
NOP Fills in stackops, 8-4 
NOT, 3-3, 3-4 

Null statement, CASE can contain, 4-16 
Number base, 7-1 
NUMERIC, 5-13 

as reserved word, 5-20 



O 



Octal, 2-1, 7-1 

One's complement. See NOT 

Operating system. See MPE/3000 

Operators 

arithmetic, 2-4 

unary, 2-5 
Optimization, using ASSEMBLE for, 8-1 
OPTION EXTERNAL, 6-4, 6-20 
OPTION FORWARD, 6-4, 6-18 
Option part, 6-4, 6-5 
OPTION VARIABLE, 6-4, 6-21 
OR, 3-10. See also LOR 
Organization 

program, 2-13 
OVERFLOW, 3-9 
OWN, 7-6 

arrays, 7-10 

pointers, 7-14 

simple variables, 7-15 



P (register), 1-2, 1-3, 6-9 

addressing range, relative to, 1-5 

diagram of, 1-3 

and EXIT, 6-10 

local arrays, relative to, 7-9 

and procedures, 6-7 

and subroutines, 6-21 
Parameters, 6-2, 6-9 

actual, 6-3 

deleting, with RETURN, 6-11 

and EXIT, 6-10 

formal, 6-3 

S-relative, 6-21 

stacked, 7-16 



Parameters (cont.) 

and subroutine, 6-21 
Parentheses ( ), 2-5 
PB, 1-2, 7-9 

diagram of, 1-3 
PCAL, 1-2-1-4, 1-7, 1-9, 4-9, 6-1, 6-7, 6-9, 6-17 
Percent (%), use in based integer, 7-1 
Period (.) 

in deposit, 2-11 
in extract, 2-7 
terminate program, 2-13 
Permutations, 6-15 
PL, 1-3 

diagram of, 1-3 
PLDA, 4-2 
Pointers, 5-4 

accessing through, 5-5 
and base register reference, 7-14 
changing, 5-6 
declaration of, 5-4 
example of, 5-15 
indexing of, 5-7 
OWN, 7-14 

space allocated to, 5-4 
and type compatibility, 5-4 
and variable reference, 7-14 
Pop, 1-6 

Position of labels, 3-2 
Precedence, 2-4, 3-3, 3-6, 4-1 
Primaries, 2-7, 3-6 
Privileged mode, 1-9, 6-2 
Procedure, 2-15, 6-1-6-21 
attributes of, 6-2 
calling, 6-6 
declaration of, 6-4 
dummy declaration of, 6-18 
and dynamic storage, 6-1 
example of, 6-2, 6-11 
function, 6-13, 7-16 
functioning of, 6-7 
and local variables, 6-1, 6-3 
main body, 6-2, 6-5 
optional portions of, 6-6 
parameters of, 6-2—604 
recursive, 6-16—6-20 
restores environment, 6-1 
re-entrant, 6-2 
saves environment, 6-1 
and segmentation, 6-1 
and sharing, 6-2 

typed, 6-2, 6-4. See also PCAL; EXIT 
Procedure call instruction. See PCAL 
PROCEDURE CALL statement, 6-6 
Procedure exit instruction. See EXIT 
Procedure group, 2-13 



Procedure head, 6-4 
Process, 1-1 

bounds of, 1-5 

contents of, 1-2 

difference between program and, 1-1 

environment of, 1-9 

registers of, 1-4 
Program organization, 2-13 
Program base register. See PB 
Program counter. See P 
Program limit register. See PL 
Protection, 1-9 
PSTA, 4-2 
Push, 1-6 



Q 



Q, 1-3, 6-1, 6-9 

addressing range, relative to, 1-5 

changes with procedure call/exit, 1-4, 1-7 

diagram of, 1-4 

and direct arrays, 7-8 

and EXIT, 6-10 

and register reference, 7-5 

and stack marker, 6-7 

unchanged by SCAL, 6-21 
Q, Delta, 6-7 
Q minus area, 6-2, 6-4 
Q plus area, 6-5 



R 

Range 

checking, 3-3, 3-5 

DOUBLE, 7-3 

of instructions, 8-9 

of INTEGER, 2-1 

of LOGICAL, 3-4 

of LONG, 7-4 

of REAL, 2-1 
Read-only arrays, 7-9 
REAL 

constants, 2-1 

declarations, 2-3 

type transfer function, 2-( 

variables, 2-3 
Recursion, 6-16—6-20 

example of, 6-19 

indirect, 6-16, 6-18 
Re-entrant code, 1-9 

and recursion, 6-17, 6-18 

and sharing, 1-9 



Re-entrant codes (cont.) 

reduces swapping, 1-9 
Reference (parameters), 6-4 
Registers, 1-2. See also P; PB; PL; DB; DL; Z; Q; S; 

STATUS; X 

use of, 1-5 
Relations (=, <, >, <=, >=, < >), 3-3-3-5 
Relative P saved on stack, 6-7 
Relocatability, 1-9 

requires relative addressing, 1-9 

of segments, 1-9 
Relops (relational operators), 

comparing bytes with, 5-19 
Repetition, 4-6. See also Looping 
Repetition factors, 4-5 
Reserved words, 2-2, 2-3 

list of, B-1 

and X, 4-2 
Results 

for logical expression, 3-6 
Return address 

for procedure, 6-7 

for subroutine, 6-21, 6-24 
RETURN statement, 6-7, 6-8, 6-11 
Ripple sort, 4-9 
Rules for statement, 4-8 



S register, 1-3 

addressing range of, 1-5 

and EXIT, 6-10 

and FOR, 4-8 

changes to, 1-6 

diagram of, 1-4 

reference to, 7-5 

relative addressing of, 6-24, 7-15 

and subroutine parameters, 6-21 
SCAL, 6-1, 6-21, 6-24 
SCAN, 4-2, 5-16, 5-20 
SCAN UNTIL statement, 5-17, 6-11 
SCAN WHILE statement, 5-18 
SCU, 5-16 
sew, 5-16 

Sdec. See Stack decrement operand 
Secondary DB, 44 
Segmentation, 6-1 
Segments. See also Code; Data 

Absence of, 1-9 

Bounds checking of, 1-9 

Relocatability of, 1-9 
Segment transfer table (STT), 6-7 
Semicolon (:) 

terminates COMMENT, 2-2 



Semicolon (:) (cont.) 

terminates declaration, 2-3 

terminates statements, 2-10, 2-13 
Separation, Code and data, 6-17 
Shifts, 2-9 

Single word shifts, 2-9 
Software, LONG is implemented by, 7-3 
Sort, 4-9, 5-15 
Source 

in move bytes, 5-12, 5-13 

in move bytes while, 5-13, 5-14 

in move words, 5-9—5-12 
Space allocation 

for base register reference, 7-6 

for byte array, 5-2 

for indexed identifier reference, 7-6 

for pointer, 5-4, 5-5 

for return value, 6-14 
SPECIAL (reserved word), 5-20 
Specification part, 6-4, 6-23 
SPL/3000 

building blocks of, 2-1 

commands of, C-1 

design of, iii 

features of, xiii 

Workbook, xiv 
Square brackets, 7-2 
Stack, 1-3. See also Data segment; Top of stack 

explicit access of, 5-1, 7-15 

and expressions, 1-7 

and FOR, 4-8 

functions of, 1-5 

hardware registers, 1-3 

and MOVE, 5-9, 5-10 

and subroutine, 6-25 
Stack decrement operand, 5-9—5-20 
Stack limit register. See Z 
Stack marker, 6-7, 6-9. See also Q register 
Stack ops, 1-6 

ASSEMBLE format of, 8-4 

compactness of, 1-7 
Stack pointer register. See S 
Statements, 2-13. See also ASSEMBLE statement; 

ASSIGNMENT statement; CASE statement; 

Compound statement; DO UNTIL statement; 

FOR statement; MOVE (bytes) statement; 

MOVE (bytes) WHILE statement; MOVE (words) 

statement; PROCEDURE CALL statement; 

RETURN statement; SCAN UNTIL statement; 

SCAN WHILE statement; SWITCH statement; 

WHILE DO statement 
STATUS register, 1-4, 6-7, 6-10 
STEP. See FOR statement 
STOR, 1-6, 1-8 
Storage 

for arrays, 4-4 



Storage (cont.) 

control of location, 7-5 

re-using, 7-5 
String constants, 2-1, 4-5. See BYTE 
STT. See Segment Transfer Table 
Sub, 1-8 
Subroutines, 2-15, 6-1, 6-21-6-27 

declaration, 6-21, 6-22 

declaration in procedures, 6-5, 6-21 

entry /exit speed, 6-21 

example, 6-26 

functioning, 6-24 

global, 6-23 

local, 6-23 

no local variables in, 6-21 

must be in same segment as caller, 6-21 

and stack parameters, 7-16 
Subscripts, 4-3 

array, 4-6 

byte array, 5-2, 5-3 

pointer, 5-7 
Subtraction (-), 2-5, 3-3 
SWITCH declaration, 4-14 
Symbol type sorter, 5-15 

Systems Programming Language. See SPL/3000 
SXIT, 6-1, 6-21, 6-24 



Table search, 4-13 
TBA, 4-6, 4-8 
TBX, 4-2, 4-6, 4-8 
Temporary storage, 6-1, 6-17 
Testword 

SCAN UNTIL, 5-17 

SCAN WHILE, 5-18 
THEN, 3-8, 3-9, 3-11 
TNSL, 4-2 
Top of stack (S-0, TOS), 1-5, 6-13. See Stack; TOS 

as implicit operand, 1-5 

as subroutine return address, 6-21 
Top of stack register. See S 
TOS (top of stack) 7-15, 3-9. See also Top of stack; S 

dangers with, 7-16 

and FOR, 4-8 

and MOVE, 5-11. 
Triple word shifts, 2-9 
TRUE, 3-2-3-11, 5-20 
Typed 

array, 4-3 

pointer, 5-4 

procedure, 6-2, 6-6, 6-13 

subroutine, 6-23 



Type compatibility, 2-9 

in assignment, 2-10, 3-7 

and pointers, 5-7 
Type mixing. Exceptions to the rule of, 2-6 
Type transfer functions, 5-4, 7-4, 7-5 

complete table of, D-18 



X (index register) (cont.) 
and range check, 3-5 
is not a reserved word, 4-2 
saved on stack, 6-7 
unchanged by SCAL, 6-21 

XOR, 3-3 



U 



Unary NOT, 3-3, 3-4 

Unary plus/minus, 2-5 

Uncallable bit, 6-2 

Undefined bounds, 7-11 

Unsigned integer (usi), 7-5 

UNTIL. See SCAN UNTIL statement; 

DO UNTIL statement; FOR statement 
Upshifting, 5-13 



Value (parameters), 6-4, 6-23 
VARIABLE. See OPTION VARIABLE 
Variable reference, 7-6, 7-14 
Variable, Simple, 7-14 

base register reference, 7-14 

declaration of, 2-3 

equivalenced to X, 4-2 

form of, 2-2 

local array bounds can be, 6-5, 7-10 

loop, 4-6, 4-7 

variable reference v^ith, 7-14 
Virtual memory, 1-9, 6-1 



W 



WHILE. See SCAN WHILE statement; 

WHILE DO statement 
WHILE DO statement, 4-12, 4-13, 6-15 



Z, 1-3 

diagram of, 1-4 
Zero element, 4-4, 4-6, 5-2 



Index of Special Characters 







See Extract; Deposit 


/ 




See Division 


« 


» 


See COMMENT 
See Semicolon 
See Comma 


:= 




See Replacement operation 


/s 




See Exponetiate 


* 




See Multiplication 


- 




See Subtraction; Unary plus/minus 


+ 




See Addition; Unary plus/minus 


[] 




See Square brackets 




\ 




See Parentheses 
See Absolute value 


& 




See Shifts 
See Colon 


""> 


<,>, 




<= 


,>=, 




<> 


See Condition codes; Relations 


= 




See Equals 


* 




See Asterisk 


@ 




See Commercial at 


% 




See Percent 



X 



X (index register), 1-4, 1-7, 6-9 
and array indexing, 4-6, 5-3 
definition, 4-2 
and DXBZ, 3-9 
equivalenced to variable, 7-5 
and EXIT, 6-10 
and FOR statement, 4-7, 4-9 
instructions using, 4-2 
and IXBZ, 3-9 
and pointer indexing, 5-7 



READER COMMENT SHEET 

HP 3000 Computer Systems 

Systems Programming Language 

Textbook 

30000-90025 Jan 1977 

We welcome your evaluation of this manual. Your comments and suggestions help us improve our publications. 
Please use additional pages if necessary. 

Is this manual technically accurate? Yes □ No Q (If no, explain under Comments, below.) 

Are the concepts and wording easy to understand? Yes D No D (If no, explain under Comments, below.) 

Is the format of this manual convenient in size. Yes D No Q (If no, explain or suggest improvements 

arrangement, and readability? under Comments, below.) 

Comments: 



FROM: 

Name 

Company 

Address 



FOLD 



FOLD 



BUSINESS REPLY MAIL 



No Postage Necessary if Mailed in the United States. Postage will be paid by 

Publications Manager 
Hewlett-Packard Company 
General Systems Division 
5303 Stevens Creek Boulevard 
Santa Clara, California 95050 



FIRST CLASS 
PERMIT NO. 1020 
SANTA CLARA 
CALIFORNIA 



FOLD 



FOLD 



Part No. 30000-90025 

Printed in U.S.A. 6/76 Wfw% '^^WLETT 

Update #3 Incorporated 9/77 m.HM PACKARD 



